login
A048387
Squares resulting from procedure described in A048386.
2
0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 49, 169, 1681, 361, 100, 144, 1936, 11664, 1369, 400, 441, 41616, 43681, 900, 9025, 93636, 1600, 16641, 166464, 2500, 3600, 36481, 4900, 6400, 646416, 8100, 11025, 11449, 1444, 14161, 14641, 116964, 12544, 136161
OFFSET
1,3
FORMULA
a(n) = A048385(A048386(n)). - Michel Marcus, Feb 13 2020
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
Sequence in context: A213630 A061205 A290934 * A035121 A080151 A292679
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
Offset 1 from Michel Marcus, Feb 13 2020
STATUS
approved