%I A107976
%S A107976 7,14,15,19,20,25,26,35,37,37,39,44,46,52,55,60,63,70,73,80,83,92,96,
%T A107976 100,104,110,115,117,122,127,133,133,139,142,149,149,156,159,167,167,
%U A107976 175,178,187,189,198,204,205,205,205,206,206,210,211,212,212,213,214
%N A107976 First differences give the same sequence written as a string of individual 
               digits.
%C A107976 Cf. A100787, A107974, A107975, A107976, A107977 for "seeds" 1, 3, 5, 
               7 and 9.
%e A107976 7.14.15.19.20.25.26.35.37.37... <- sequence
%e A107976 .7..1..4..1..5..1..9..2..0... <- first differences = the sequence's digits
%t A107976 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}] (from Robert G. Wilson 
               v (rgwv(AT)rgwv.com), Jun 15 2005)
%Y A107976 Sequence in context: A048727 A064666 A040042 this_sequence A022557 A085335 
               A069137
%Y A107976 Adjacent sequences: A107973 A107974 A107975 this_sequence A107977 A107978 
               A107979
%K A107976 base,easy,nonn
%O A107976 1,1
%A A107976 Eric Angelini (eric.angelini(AT)kntv.be), Jun 12 2005
%E A107976 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 15 
               2005