|
Search: id:A107976
|
|
|
| A107976 |
|
First differences give the same sequence written as a string of individual digits. |
|
+0
5
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Cf. A100787, A107974, A107975, A107976, A107977 for "seeds" 1, 3, 5, 7 and 9.
|
|
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}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 15 2005)
|
|
CROSSREFS
|
Sequence in context: A048727 A064666 A040042 this_sequence A022557 A085335 A069137
Adjacent sequences: A107973 A107974 A107975 this_sequence A107977 A107978 A107979
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Eric Angelini (eric.angelini(AT)kntv.be), Jun 12 2005
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 15 2005
|
|
|
Search completed in 0.002 seconds
|
