

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..56.


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
Adjacent sequences: A107974 A107975 A107976 * A107978 A107979 A107980


KEYWORD

base,easy,nonn


AUTHOR

Eric Angelini, Jun 12 2005


EXTENSIONS

Edited and extended by Robert G. Wilson v, Jun 15 2005


STATUS

approved



