A107975 First differences give the same sequence written as a string of individual digits.

5, 10, 11, 11, 12, 13, 14, 15, 16, 18, 19, 22, 23, 27, 28, 33, 34, 40, 41, 49, 50, 59, 61, 63, 65, 68, 70, 77, 79, 87, 90, 93, 96, 100, 104, 104, 108, 109, 113, 122, 127, 127, 132, 141, 147, 148, 154, 157, 163, 168, 174, 182, 189, 189, 196, 203, 210, 219, 227, 234, 243

Offset

1,1

Links

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

Example

5.10.11.11.12.13.14.15.16.18 ... <- sequence
.5..1..0..1..1..1..1..1..2 ... <- first differences are the sequence's digits.

Mathematica

a[1] = 5; a[n_] := a[n] = a[n - 1] + Flatten[ Table[ IntegerDigits[ a[i]], {i, n - 1}]][[n - 1]]; Table[ a[n], {n, 61}] (* 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: A032242 A208541 A324593 * A262665 A106792 A232487

Adjacent sequences: A107972 A107973 A107974 * A107976 A107977 A107978

Keyword

base,easy,nonn

Author

Eric Angelini, Jun 12 2005

Extensions

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

Status

approved