OFFSET
1,3
FORMULA
PROG
(Magma) f:=func<n|StringToInteger(&cat[IntegerToString(h): h in Reverse([c^2: c in Intseq(n)])])>; [0] cat [f(k):k in [1..4000]|IsSquare(f(k))]; // Marius A. Burtea, Feb 13 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
Offset 1 from Michel Marcus, Feb 13 2020
STATUS
approved