A202172 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..28.

FORMULA

a(n)=A202170(n)^2

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 *)

PROG

(PARI) for(i=0, 99999, setminus(Set(Vec(Str(i^2))), Vec("048")) | print1(i^2, ", "))