OFFSET
1,1
LINKS
Hisanori Mishima, Sporadic tridigital solutions
FORMULA
a(n) = A053960(n)^2.
MATHEMATICA
fQ[n_] := Union[ Join[{4, 6, 9}, IntegerDigits[n]]] == {4, 6, 9}; lst = {}; Do[ If[ fQ[n^2], AppendTo[lst, n^2]], {n, 2*10^9}]; lst (* Robert G. Wilson v, Jun 01 2005 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 2000
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 03 2005
Missing term inserted by Sean A. Irvine, Apr 28 2022
STATUS
approved
