OFFSET
1,1
COMMENTS
The last term of this sequence is a(87) = 9814072356.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..87 (full sequence)
MAPLE
lim:=floor(sqrt(9876543210)): for n from floor(sqrt(1023456789)) to lim do d:=[op(convert(n^2, base, 10))]: pandig:=true: for k from 0 to 9 do if(numboccur(k, d)<>1)then pandig:=false: break: fi: od: if(pandig)then printf("%d, ", n^2): fi: od: # Nathaniel Johnston, Jun 22 2011
MATHEMATICA
Select[ Range[ Floor[ Sqrt[ 1023456789 ] ], Floor[ Sqrt[ 9876543210 ] ] ]^2, Union[ DigitCount[ # ] ]== {1} & ]
Select[FromDigits/@Permutations[Range[0, 9]], IntegerLength[#]==10&&IntegerQ[ Sqrt[#]]&] (* Harvey P. Dale, Apr 09 2012 *)
PROG
(Python)
def c(n): return len(set(str(n))) == 10
def afull(): return [k*k for k in range(31622, 10**5) if c(k*k)]
print(afull()) # Michael S. Branicky, Dec 27 2022
CROSSREFS
KEYWORD
fini,full,nonn,base
AUTHOR
STATUS
approved