|
| |
|
|
A070061
|
|
Least number of fecundity n (A070562).
|
|
1
| |
|
|
0, 5, 25, 19, 23, 18, 9, 7, 4, 2, 1, 282, 1529, 1586, 1397, 898, 658, 538, 477, 529, 736, 586, 397, 366, 294, 246, 243, 187, 3237326, 3677393, 3586673, 3553787, 3515987, 22572473, 518376965, 516675965, 516963965
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
REFERENCES
| P. Tougne, Jeux Mathematiques column, Pour La Science (French edition of "Scientific American"), Vol. 82, Aug. 1984, Prob. 6, pp. 101, 104.
|
|
|
EXAMPLE
| a(9)=2 since we have the 9-step chain 2->4->8->16->22->26->38->62->74->102.
|
|
|
MATHEMATICA
| f[n_] := Length@ FixedPointList[ # + Times @@ IntegerDigits@# &, n] - 2; t = Table[0, {50}]; k = 1; While[k < 2300000001, a = f@k; If[ t[[a + 1]] == 0, t[[a + 1]] = k; Print[{k, a}]]; k++ ]; t [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 27 2010]
|
|
|
CROSSREFS
| Cf. A070562, A003001.
Sequence in context: A070384 A070377 A070383 * A070376 A036139 A070382
Adjacent sequences: A070058 A070059 A070060 * A070062 A070063 A070064
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Lekraj Beedassy (blekraj(AT)yahoo.com), May 06 2002
|
|
|
EXTENSIONS
| Corrected and extended by Jason Earls (zevi_35711(AT)yahoo.com), May 26 2002
a(35) - a(37) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 27 2010
|
| |
|
|
