|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|