|
| |
|
|
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
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A067844 A015877 A192290 * A046085 A054296 A155704
Adjacent sequences: A152007 A152008 A152009 * A152011 A152012 A152013
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Edwin Vening and Roger Bagula (rlbagulatftn(AT)yahoo.com), Nov 19 2008
|
| |
|
|
