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

3, 6, 12, 13, 15, 16, 19, 20, 25, 26, 32, 33, 42, 44, 44, 46, 51, 53, 59, 62, 64, 67, 70, 74, 76, 80, 84, 88, 92, 96, 102, 107, 108, 113, 116, 121, 130, 136, 138, 144, 148, 154, 161, 168, 168, 175, 179, 186, 192, 200, 200, 208, 212, 220, 228, 237, 239, 248, 254, 255

Offset: 1

Author

Eric Angelini, Jun 12 2005

Keywords

• base
• easy
• nonn

Examples

			3.6.12.13.15.16.19.20.25 ... <- sequence
.3.6..1..2..1..3..1..5 ... <- first differences are the sequence's digits.
		

Crossrefs

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

Programs

Mathematica

a[1] = 3; 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 *)

Extensions

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