OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1, 100000], ContainsOnly[IntegerDigits[#^2], {1, 4, 5}] &] (* Julien Kluge, Jul 08 2016 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Patrick De Geest, Mar 15 2000
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 04 2005
Two more terms from Jon E. Schoenfield, Sep 03 2006
STATUS
approved