All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars    
perplexus dot info

Home > Numbers
Pandigital and square (Posted on 2017-04-15) Difficulty: 3 of 5
There are 87 square numbers that use every digit (base 10, no leading zeroes)) exactly once.

List them.

No Solution Yet Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer solution | Comment 1 of 6
pandigital     square
  square        root  
1026753849     32043
1042385796     32286
1098524736     33144
1237069584     35172
1248703569     35337
1278563049     35757
1285437609     35853
1382054976     37176
1436789025     37905
1503267984     38772
1532487609     39147
1547320896     39336
1643897025     40545
1827049536     42744
1927385604     43902
1937408256     44016
2076351489     45567
2081549376     45624
2170348569     46587
2386517904     48852
2431870596     49314
2435718609     49353
2571098436     50706
2913408576     53976
3015986724     54918
3074258916     55446
3082914576     55524
3089247561     55581
3094251876     55626
3195867024     56532
3285697041     57321
3412078569     58413
3416987025     58455
3428570916     58554
3528716409     59403
3719048256     60984
3791480625     61575
3827401956     61866
3928657041     62679
3964087521     62961
3975428601     63051
3985270641     63129
4307821956     65634
4308215769     65637
4369871025     66105
4392508176     66276
4580176329     67677
4728350169     68763
4730825961     68781
4832057169     69513
5102673489     71433
5273809641     72621
5739426081     75759
5783146209     76047
5803697124     76182
5982403716     77346
6095237184     78072
6154873209     78453
6457890321     80361
6471398025     80445
6597013284     81222
6714983025     81945
7042398561     83919
7165283904     84648
7285134609     85353
7351862049     85743
7362154809     85803
7408561329     86073
7680594321     87639
7854036129     88623
7935068241     89079
7946831025     89145
7984316025     89355
8014367529     89523
8125940736     90144
8127563409     90153
8135679204     90198
8326197504     91248
8391476025     91605
8503421796     92214
8967143025     94695
9054283716     95154
9351276804     96702
9560732841     97779
9614783025     98055
9761835204     98802
9814072356     99066

DefDbl A-Z
Dim crlf$

Private Sub Form_Load()
 Form1.Visible = True
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 For sr = Int(Sqr(1023456789)) To Int(Sqr(9876543211#))
    sq = sr * sr
    s$ = LTrim(Str(sq))
    If Len(s) = 10 Then good = 1 Else good = 0
    For i = 2 To Len(s)
      If InStr(s, Mid(s, i, 1)) <> i Then good = 0: Exit For
    Next
    If good Then
      Text1.Text = Text1.Text & sq & "     " & sr & crlf
      ct = ct + 1
    End If
 Next
 
 Text1.Text = Text1.Text & ct & crlf & " done"
  
End Sub


  Posted by Charlie on 2017-04-15 14:22:31
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (3)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information