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

7, 14, 15, 19, 20, 25, 26, 35, 37, 37, 39, 44, 46, 52, 55, 60, 63, 70, 73, 80, 83, 92, 96, 100, 104, 110, 115, 117, 122, 127, 133, 133, 139, 142, 149, 149, 156, 159, 167, 167, 175, 178, 187, 189, 198, 204, 205, 205, 205, 206, 206, 210, 211, 212, 212, 213, 214

Offset

1,1

Comments

Cf. A100787, A107974, A107975, A107976, A107977 for "seeds" 1, 3, 5, 7 and 9.

Links

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

Example

7.14.15.19.20.25.26.35.37.37... <- sequence
.7..1..4..1..5..1..9..2..0... <- first differences = the sequence's digits

Mathematica

a[1] = 7; a[n_] := a[n] = a[n - 1] + Flatten[ Table[ IntegerDigits[ a[i]], {i, n - 1}]][[n - 1]]; Table[ a[n], {n, 60}] (* Robert G. Wilson v, Jun 15 2005 *)

Crossrefs

Sequence in context: A232860 A232797 A354791 * A022557 A307546 A297261

Adjacent sequences: A107973 A107974 A107975 * A107977 A107978 A107979

Keyword

base,easy,nonn

Author

Eric Angelini, Jun 12 2005

Extensions

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

Status

approved