OFFSET
1,2
COMMENTS
Sequence terminates.
Generated with DrScheme.
LINKS
Jonathan Wellons, Tables of Shared Digits [archived]
EXAMPLE
21^2 = 441.
MATHEMATICA
Table[Select[(FromDigits/@Tuples[{1, 2, 4}, d]), SubsetQ[{1, 2, 4}, IntegerDigits[ #^2]]&], {d, 2}]//Flatten (* Harvey P. Dale, Jan 10 2022 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved