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

%I #5 Jul 30 2015 23:01:36

%S 5,10,11,11,12,13,14,15,16,18,19,22,23,27,28,33,34,40,41,49,50,59,61,

%T 63,65,68,70,77,79,87,90,93,96,100,104,104,108,109,113,122,127,127,

%U 132,141,147,148,154,157,163,168,174,182,189,189,196,203,210,219,227,234,243

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

%e 5.10.11.11.12.13.14.15.16.18 ... <- sequence

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

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

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

%K base,easy,nonn

%O 1,1

%A _Eric Angelini_, Jun 12 2005

%E Edited and extended by _Robert G. Wilson v_, Jun 15 2005