OFFSET
1,2
COMMENTS
Generated with DrScheme.
No additional terms through 9999999999. - Harvey P. Dale, Mar 31 2014
LINKS
Jonathan Wellons, Tables of Shared Digits [archived]
EXAMPLE
126969^2 = 16121126961.
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{1, 2, 6, 9}, i], Total[ Table[ DigitCount[ #^2, 10, n], {n, {3, 4, 5, 7, 8, 0}}]]==0&], {i, 10}]] (* Harvey P. Dale, Mar 31 2014 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved