OFFSET
1,1
COMMENTS
Generated with DrScheme.
No further terms up to 20 billion. - Harvey P. Dale, Dec 15 2011
No further terms up to 10^15. - Travis Vasquez, Oct 23 2024
LINKS
Jonathan Wellons, Tables of Shared Digits [archived]
EXAMPLE
2878^2 = 8282884.
MATHEMATICA
oksQ[n_]:=Module[{idn2=Union[IntegerDigits[n^2]]}, And@@Table[MemberQ[{2, 4, 7, 8}, idn2[[i]]], {i, Length[idn2]}]]; Select[FromDigits/@Flatten[ Table[ Tuples[ {2, 4, 7, 8}, n], {n, 9}], 1], oksQ] (* Harvey P. Dale, Dec 15 2011 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved