|
Search: id:A152010
|
|
|
| A152010 |
|
Chaotic sequence made from A127335 by the sum of the integer digits: sum of eight primes and then the sum of the result's integer digits: a(n)=Apply[Plus, IntegerDigits[Sum[Prime[n + m], {m, 0, 7}]]]. |
|
+0
1
|
|
| 14, 17, 7, 6, 9, 3, 6, 9, 7, 7, 12, 12, 10, 15, 6, 15, 15, 8, 12, 21, 12, 21, 10, 18, 24, 19, 21, 4, 12, 6, 11, 15, 12, 18, 6, 12, 9, 13, 13, 12, 17, 11, 14, 11, 21, 11, 18, 10, 14, 20, 8, 16, 4, 10, 16, 12, 15, 14, 15, 15, 17, 18, 11, 21, 15, 15, 17, 20, 12, 18, 3, 15, 20, 9, 21, 10, 6
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a(n)=Apply[Plus, IntegerDigits[Sum[Prime[n + m], {m, 0, 7}]]].
|
|
MATHEMATICA
|
Table[Apply[Plus, IntegerDigits[Sum[Prime[n + m], {m, 0, 7}]]], {n, 1, 100}]
|
|
CROSSREFS
|
Table[Apply[Plus, IntegerDigits[Sum[Prime[n + m], {m, 0, 7}]]], {n, 1, 100}]
Sequence in context: A163629 A067844 A015877 this_sequence A153041 A046085 A054296
Adjacent sequences: A152007 A152008 A152009 this_sequence A152011 A152012 A152013
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Edwin Vening and Roger Bagula (rlbagulatftn(AT)yahoo.com), Nov 19 2008
|
|
|
Search completed in 0.002 seconds
|
