OFFSET
1,2
COMMENTS
Generated with DrScheme.
Once any term appears that is not a multiple of 10, every multiple of that term by a power of 10 is also a term, i.e., new terms can be generated by appending any number of zeros to previous terms. - Harvey P. Dale, May 02 2021
LINKS
Jonathan Wellons, Table of n, a(n) for n = 1..55
J. Wellons, Tables of Shared Digits [archived]
EXAMPLE
47333227304302^2 = 2240434407040720377707707204.
MATHEMATICA
With[{c={0, 2, 3, 4, 7}}, Select[FromDigits/@Tuples[c, 12], SubsetQ[ c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, May 02 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved
