login
A202172
Squares containing only the digits 0, 4 or 8.
0
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,2
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, ", "))
CROSSREFS
Cf. A030098.
Sequence in context: A116031 A115049 A307929 * A349460 A158111 A259049
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Dec 13 2011
STATUS
approved