OFFSET
1,1
COMMENTS
Generated with DrScheme.
No further terms up to and including 1000000. - Harvey P. Dale, Dec 03 2010
No further terms <= 10^40. - Michael S. Branicky, Feb 12 2024
From Pontus von Brömssen, May 01 2024: (Start)
a(6) > 6*10^46 (if it exists).
If k = x*10^m is a term where 1 < x < 10 and k is not 88 or 8874, then 20/3 < x < 8.7674847468864688448864887688468686674647846475.
(End)
LINKS
Jonathan Wellons, Tables of Shared Digits
EXAMPLE
86478^2 = 7478444484.
MATHEMATICA
clearQ[n_]:=Module[{dc=DigitCount[n]}, dc[[1]]==dc[[2]]==dc[[3]]==dc[[5]]==dc[[9]]==dc[[10]]==0]
Select[Range[1000000], clearQ[#]&&clearQ[#^2]&] (* Harvey P. Dale, Dec 03 2010 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved