|
| |
|
|
A107977
|
|
First differences give the same sequence written as a string of individual digits.
|
|
5
| |
|
|
9, 18, 19, 27, 28, 37, 39, 46, 48, 56, 59, 66, 69, 78, 82, 88, 92, 100, 105, 111, 116, 125, 131, 137, 143, 152, 159, 167, 175, 177, 185, 193, 202, 204, 205, 205, 205, 206, 206, 211, 212, 213, 214, 215, 216, 222, 223, 225, 230, 231, 234, 235, 236, 239, 246, 247
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 9.18.19.27.28.37.39.46.48.56 ... <- sequence
.9..1..8..1..9..2..7..2..8 ... <- first differences are the sequence's digits.
|
|
|
MATHEMATICA
| a[1] = 9; a[n_] := a[n] = a[n - 1] + Flatten[ Table[ IntegerDigits[ a[i]], {i, n - 1}]][[n - 1]]; Table[ a[n], {n, 56}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 15 2005)
|
|
|
CROSSREFS
| Cf. A100787, A107974, A107975, A107976, A107977 for "seeds" 1, 3, 5, 7 and 9.
Sequence in context: A158908 A202188 A060993 * A092457 A062057 A015785
Adjacent sequences: A107974 A107975 A107976 * A107978 A107979 A107980
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Eric Angelini (eric.angelini(AT)kntv.be), Jun 12 2005
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 15 2005
|
| |
|
|
