|
| |
|
|
A116978
|
|
Cubes for which the multiplicative digital root is also a cube.
|
|
3
| |
|
|
0, 1, 8, 64, 125, 343, 512, 1000, 4096, 4913, 5832, 6859, 8000, 9261, 10648, 13824, 15625, 17576, 19683, 21952, 27000, 32768, 35937, 39304, 42875, 46656, 50653, 54872, 59319, 64000, 68921, 74088, 79507, 85184, 91125, 97336, 103823, 110592, 117649
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Nathaniel Johnston, Table of n, a(n) for n = 1..5000
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
|
MAPLE
| A007954 := proc(n) return mul(d, d=convert(n, base, 10)): end: A116978 := proc(n) option remember: local k, m: if(n=1)then return 0:fi: for k from procname(n-1)+1 do m:=k^3: while(length(m)>1)do m:=A007954(m): od: if(m in {0, 1, 8})then return k: fi: od: end: seq(A116978(n)^3, n=1..50); # Nathaniel Johnston, May 05 2011
|
|
|
MATHEMATICA
| fQ[n_] := IntegerQ[ FixedPoint[Times @@ IntegerDigits@# &, n]^(1/3)]; Select[Range[0, 48]^3, fQ@# &] (* Robert G. Wilson v *)
|
|
|
CROSSREFS
| Sequence in context: A074102 A118719 A134739 * A125110 A043152 A044195
Adjacent sequences: A116975 A116976 A116977 * A116979 A116980 A116981
|
|
|
KEYWORD
| nonn,easy,base
|
|
|
AUTHOR
| Luc Stevens (lms022(AT)yahoo.com), Apr 01 2006
|
|
|
EXTENSIONS
| Corrected and extended by Robert G. Wilson v (rgwv(at)rgwv.com), Apr 03 2006
|
| |
|
|
