|
|
A137144
|
|
Numbers k such that k and the square of k use only the digits 4, 6, 7 and 8.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Generated with DrScheme.
No further terms up to and including 1000000. - Harvey P. Dale, Dec 03 2010
|
|
LINKS
|
|
|
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
|
|
|
|