OFFSET
1,1
FORMULA
a(n) = sqrt(A036744(n)). - Zak Seidov, Jan 11 2012
MAPLE
lim:=floor(sqrt(987654321)): for n from floor(sqrt(123456789)) to lim do d:=[op(convert(n^2, base, 10))]: pandig:=true: for k from 1 to 9 do if(numboccur(k, d)<>1)then pandig:=false: break: fi: od: if(pandig)then printf("%d, ", n): fi: od: # Nathaniel Johnston, Jun 22 2011
MATHEMATICA
Sqrt[#]&/@Select[FromDigits/@Permutations[Range[9]], IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Sep 23 2011 *)
Select[Range[11112, 31427, 3], DigitCount[#^2] == {1, 1, 1, 1, 1, 1, 1, 1, 1, 0} &] (* Zak Seidov, Jan 11 2012 *)
PROG
(PARI) A071519 = select( {is_A071519(n, L=[1..9])=vecsort(digits(n^2))==L}, [1e5\9..1e5\3]) \\ M. F. Hasler, Jun 28 2023
CROSSREFS
KEYWORD
fini,full,easy,nonn,base
AUTHOR
Lekraj Beedassy, Jun 20 2002
STATUS
approved