login
A107977
First differences give the same sequence written as a string of individual digits.
6
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
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}] (* Robert G. Wilson v, Jun 15 2005 *)
CROSSREFS
Cf. A100787, A107974, A107975, A107976, A107977 for "seeds" 1, 3, 5, 7 and 9.
Sequence in context: A297267 A296711 A297144 * A257226 A092457 A062057
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Jun 12 2005
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jun 15 2005
STATUS
approved