|
| |
|
|
A137144
|
|
Numbers n such that n and the square of n use only the digits 4, 6, 7 and 8.
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Generated with DrScheme
No further terms up to and including 1000000 (Harvey P. Dale, Dec. 3, 2010)
|
|
|
LINKS
| J. 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]&]
|
|
|
CROSSREFS
| Sequence in context: A051605 A006750 A082783 * A107677 A084005 A137494
Adjacent sequences: A137141 A137142 A137143 * A137145 A137146 A137147
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
|
|
EXTENSIONS
| Comment and Mathematica program from Harvey P. Dale, Dec. 3, 2010
|
| |
|
|
