Quadratzahlen 10stellig

3 Antworten

hypergerd
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Mathematik
30.07.2014, 21:26

Diese Frage beantwortet der kostenlose Iterationsrechner:
http://www.gerdlamprecht.de/Roemisch_JAVA.htm##@Na=floor(@Q1e9));@C0]=0;c=0;@Nb=@Pa+i,2);an(aC,b.toString());if(@C0] * @C1] * @C2] * @C3] * @C4] * @C5] * @C6] * @C7] * @C8] * @C9]==1){@Bc]=b;c+=1;}@N(a+i)%3E99999@N0@N0@N#
(LINK endet mit N# und beinhaltet den code)
mit 3 Zeilen Code in weniger als 0,2 Sekunden: 87 Ergebnisse

Iterationsrechner - (Mathematik, Quadratzahlen)
hypergerd  26.05.2017, 13:12

Hinweis: die Funktion an(Array,String) zählt die Ziffernhäufigkeit im String und gibt sie an das Array/Feld. Nur wenn alle Ziffern 1 mal vorkommen, ist deren Produkt daraus 1.

Man kommt also mit 1 Schleife aus, ohne lange, langsame &  fehleranfällige Programme schreiben zu müssen...

0
cat64k
30.07.2014, 11:57

naja, du musst wohl erstmal die minimale und maximale Basis ausrechnen.

also

min = Wurzel (1.000.000.000) und max = Wurzel (9.999.999.999)

minimale Basis ist also: 31.623 und maximale Basis 99.999

und dann kannst du von jeder möglichen Basis dazwischen die quadratzahl ausrechen und vergleichen.
cat64k  30.07.2014, 11:59

ich würd mir dafür nen skript schreiben und nicht mehr selbst rechnen :D

1
YokaiTanuki
30.07.2014, 12:02

Davon gibt es genau 77. Die kleinste wäre 1026 753 849 (32043²) und die größte 9814072356 (99066²).
YokaiTanuki  30.07.2014, 12:29

Wenn man sehr, sehr viel Zeit und Langeweile hat kann man auch so vorgehen:

0+1=1, 1+3=4, 4+5=9, 9+7=16, 16+9=25, 25+11=36, 36+13=49, 49+15=64 ,...

Das würde nur ewig dauern.

0
augsburgchris  30.07.2014, 12:33

also ich komme auf 87

1
augsburgchris  30.07.2014, 12:47
@YokaiTanuki

Mein Code (Excel VBA):

Sub blubb()

For x = 31623 To 99999

Zahl = x * x

Dim Wert(9)

For i = 0 To 9
Wert(i) = Mid(Zahl, i + 1, 1)
Next i


For a = 0 To 9
   For b = 0 To 9
      If Not (a = b) Then
            If Wert(a) = Wert(b) Then
                 GoTo Hier
            End If
       End If
    Next b
Next a

ActiveCell.Offset(0, 0) = x
ActiveCell.Offset(0, 1) = Zahl
ActiveCell.Offset(1, 0).Select

Hier:
Next x


End Sub
1
augsburgchris  30.07.2014, 12:48
@augsburgchris

Ergebnisse

   │    A     │   B   │     C      │
───┼──────────┼───────┼────────────┤
1  │Lfd. Nr.  │Zahl   │Zahl²       │
───┼──────────┼───────┼────────────┤
2  │         1│  32043│  1026753849│
───┼──────────┼───────┼────────────┤
3  │         2│  32286│  1042385796│
───┼──────────┼───────┼────────────┤
4  │         3│  33144│  1098524736│
───┼──────────┼───────┼────────────┤
5  │         4│  35172│  1237069584│
───┼──────────┼───────┼────────────┤
6  │         5│  35337│  1248703569│
───┼──────────┼───────┼────────────┤
7  │         6│  35757│  1278563049│
───┼──────────┼───────┼────────────┤
8  │         7│  35853│  1285437609│
───┼──────────┼───────┼────────────┤
9  │         8│  37176│  1382054976│
───┼──────────┼───────┼────────────┤
10 │         9│  37905│  1436789025│
───┼──────────┼───────┼────────────┤
11 │        10│  38772│  1503267984│
───┼──────────┼───────┼────────────┤
12 │        11│  39147│  1532487609│
───┼──────────┼───────┼────────────┤
13 │        12│  39336│  1547320896│
───┼──────────┼───────┼────────────┤
14 │        13│  40545│  1643897025│
───┼──────────┼───────┼────────────┤
15 │        14│  42744│  1827049536│
───┼──────────┼───────┼────────────┤
16 │        15│  43902│  1927385604│
───┼──────────┼───────┼────────────┤
17 │        16│  44016│  1937408256│
───┼──────────┼───────┼────────────┤
18 │        17│  45567│  2076351489│
───┼──────────┼───────┼────────────┤
19 │        18│  45624│  2081549376│
───┼──────────┼───────┼────────────┤
20 │        19│  46587│  2170348569│
───┼──────────┼───────┼────────────┤
21 │        20│  48852│  2386517904│
───┼──────────┼───────┼────────────┤
22 │        21│  49314│  2431870596│
───┼──────────┼───────┼────────────┤
23 │        22│  49353│  2435718609│
───┼──────────┼───────┼────────────┤
24 │        23│  50706│  2571098436│
───┼──────────┼───────┼────────────┤
25 │        24│  53976│  2913408576│
───┼──────────┼───────┼────────────┤
26 │        25│  54918│  3015986724│
───┼──────────┼───────┼────────────┤
27 │        26│  55446│  3074258916│
───┼──────────┼───────┼────────────┤
28 │        27│  55524│  3082914576│
───┼──────────┼───────┼────────────┤
29 │        28│  55581│  3089247561│
───┼──────────┼───────┼────────────┤
30 │        29│  55626│  3094251876│
───┼──────────┼───────┼────────────┤
31 │        30│  56532│  3195867024│
───┼──────────┼───────┼────────────┤
32 │        31│  57321│  3285697041│
───┼──────────┼───────┼────────────┤
33 │        32│  58413│  3412078569│
───┼──────────┼───────┼────────────┤
34 │        33│  58455│  3416987025│
───┼──────────┼───────┼────────────┤
35 │        34│  58554│  3428570916│
───┼──────────┼───────┼────────────┤
36 │        35│  59403│  3528716409│
───┼──────────┼───────┼────────────┤
37 │        36│  60984│  3719048256│
───┼──────────┼───────┼────────────┤
38 │        37│  61575│  3791480625│
───┼──────────┼───────┼────────────┤
39 │        38│  61866│  3827401956│
───┼──────────┼───────┼────────────┤
40 │        39│  62679│  3928657041│
───┼──────────┼───────┼────────────┤
41 │        40│  62961│  3964087521│
───┼──────────┼───────┼────────────┤
42 │        41│  63051│  3975428601│
───┼──────────┼───────┼────────────┤
43 │        42│  63129│  3985270641│
───┼──────────┼───────┼────────────┤
44 │        43│  65634│  4307821956│
───┼──────────┼───────┼────────────┤
45 │        44│  65637│  4308215769│
───┼──────────┼───────┼────────────┤
46 │        45│  66105│  4369871025│
───┼──────────┼───────┼────────────┤
47 │        46│  66276│  4392508176│
───┼──────────┼───────┼────────────┤
48 │        47│  67677│  4580176329│
───┼──────────┼───────┼────────────┤
49 │        48│  68763│  4728350169│
───┼──────────┼───────┼────────────┤
50 │        49│  68781│  4730825961│
───┼──────────┼───────┼────────────┤
51 │        50│  69513│  4832057169│
───┼──────────┼───────┼────────────┤
52 │        51│  71433│  5102673489│
───┼──────────┼───────┼────────────┤
53 │        52│  72621│  5273809641│
───┼──────────┼───────┼────────────┤
54 │        53│  75759│  5739426081│
───┼──────────┼───────┼────────────┤
55 │        54│  76047│  5783146209│
───┼──────────┼───────┼────────────┤
56 │        55│  76182│  5803697124│
───┼──────────┼───────┼────────────┤
57 │        56│  77346│  5982403716│
───┼──────────┼───────┼────────────┤
58 │        57│  78072│  6095237184│
───┼──────────┼───────┼────────────┤
59 │        58│  78453│  6154873209│
───┼──────────┼───────┼────────────┤
60 │        59│  80361│  6457890321│
───┼──────────┼───────┼────────────┤
61 │        60│  80445│  6471398025│
───┼──────────┼───────┼────────────┤
62 │        61│  81222│  6597013284│
───┼──────────┼───────┼────────────┤
63 │        62│  81945│  6714983025│
───┼──────────┼───────┼────────────┤
64 │        63│  83919│  7042398561│
───┼──────────┼───────┼────────────┤
65 │        64│  84648│  7165283904│
───┼──────────┼───────┼────────────┤
66 │        65│  85353│  7285134609│
───┼──────────┼───────┼────────────┤
67 │        66│  85743│  7351862049│
───┼──────────┼───────┼────────────┤
68 │        67│  85803│  7362154809│
───┼──────────┼───────┼────────────┤
69 │        68│  86073│  7408561329│
───┼──────────┼───────┼────────────┤
70 │        69│  87639│  7680594321│
───┼──────────┼───────┼────────────┤
71 │        70│  88623│  7854036129│
───┼──────────┼───────┼────────────┤
72 │        71│  89079│  7935068241│
───┼──────────┼───────┼────────────┤
73 │        72│  89145│  7946831025│
───┼──────────┼───────┼────────────┤
74 │        73│  89355│  7984316025│
───┼──────────┼───────┼────────────┤
75 │        74│  89523│  8014367529│
───┼──────────┼───────┼────────────┤
76 │        75│  90144│  8125940736│
───┼──────────┼───────┼────────────┤
0
augsburgchris  30.07.2014, 12:48
@augsburgchris 
   │  A  │   B   │     C      │
───┼─────┼───────┼────────────┤
77 │   76│  90153│  8127563409│
───┼─────┼───────┼────────────┤
78 │   77│  90198│  8135679204│
───┼─────┼───────┼────────────┤
79 │   78│  91248│  8326197504│
───┼─────┼───────┼────────────┤
80 │   79│  91605│  8391476025│
───┼─────┼───────┼────────────┤
81 │   80│  92214│  8503421796│
───┼─────┼───────┼────────────┤
82 │   81│  94695│  8967143025│
───┼─────┼───────┼────────────┤
83 │   82│  95154│  9054283716│
───┼─────┼───────┼────────────┤
84 │   83│  96702│  9351276804│
───┼─────┼───────┼────────────┤
85 │   84│  97779│  9560732841│
───┼─────┼───────┼────────────┤
86 │   85│  98055│  9614783025│
───┼─────┼───────┼────────────┤
87 │   86│  98802│  9761835204│
───┼─────┼───────┼────────────┤
88 │   87│  99066│  9814072356│
───┴─────┴───────┴────────────┘


Tabelle mit dem Tabellen-Zeichner-Addin generiert.
Version: 2.0
Download: <a href="http://www.gutefrage.net/tipp/excel-tabellen-darstellen">http://www.gutefrage.net/tipp/excel-tabellen-darstellen</a>
© RE
1
YokaiTanuki  30.07.2014, 13:39
@augsburgchris

Ergebnis Fehlersuche: Ich habe mich verscriptet. Ich habe, bevor ich die eigentlichen Quadratzahlen berechnen lasse, eine kleine Rechnung, die die Anzahl der Möglichkeiten ausgibt. Per Kombinatorik. Da habe ich mich vertan. Sind tatsächlich 87. Die Zahlen passen aber. Das kommt davon, wenn man eben schnell ein Script zusammenschustert und nebenbei etwas anderes macht :D

0
YokaiTanuki  30.07.2014, 13:53

Korrektur: Sind 87. Hatte einen Fehler im Script~

0