A029773 Squares k^2 in which the digits of k appear.

0, 1, 25, 36, 100, 121, 625, 729, 2500, 3025, 3600, 3969, 4096, 4356, 5476, 5776, 9025, 9216, 9801, 10000, 10201, 11025, 12100, 12321, 12544, 13225, 13456, 15625, 19321, 20164, 39601, 42025, 44521, 49284, 50625, 53824, 62500, 65025

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A029772.

Programs

Mathematica

Select[Range[0,300]^2,SubsetQ[IntegerDigits[#],IntegerDigits[Sqrt[#]]]&] (* Harvey P. Dale, Jan 18 2015 *)

Formula

a(n) = A029772(n)^2. - Michel Marcus, Aug 29 2023