A048387 Squares resulting from procedure described in A048386.

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

Author

Patrick De Geest, Mar 15 1999

Keywords

• nonn
• base

Crossrefs

Cf. A048385, A048386.

Programs

Magma

f:=func; [0] cat [f(k):k in [1..4000]|IsSquare(f(k))]; // Marius A. Burtea, Feb 13 2020

Formula

a(n) = A048385(A048386(n)). - Michel Marcus, Feb 13 2020

Extensions

Offset 1 from Michel Marcus, Feb 13 2020