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,1

Links

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

Example

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.

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 *)

Crossrefs

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

Sequence in context: A038587 A090553 A078502 * A298879 A116625 A287560

Adjacent sequences: A107971 A107972 A107973 * A107975 A107976 A107977

Keyword

base,easy,nonn

Author

Eric Angelini, Jun 12 2005

Extensions

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

Status

approved