A202172 Squares containing only the digits 0, 4 or 8.
0, 4, 400, 484, 40000, 40804, 48400, 88804, 4000000, 4008004, 4080400, 4088484, 4840000, 4848804, 8880400, 400000000, 400080004, 400800400, 400880484, 408040000, 408848400, 484000000, 484088004, 484880400, 840884004, 888040000, 40000000000, 40000800004
Offset: 1
Crossrefs
Cf. A030098.
Programs
-
Mathematica
Select[Range[0, 400000]^2, Complement[Union[IntegerDigits[#]], {0, 4, 8}] == {} &] (* T. D. Noe, Dec 21 2011 *) Select[FromDigits/@Tuples[{0,4,8},11],IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Apr 19 2019 *) -
PARI
for(i=0,99999,setminus(Set(Vec(Str(i^2))),Vec("048")) || print1(i^2,","))
Formula
a(n)=A202170(n)^2