A152010 Sum of digits of A127335(n).

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

Offset: 1

Author

E.J.P. Vening and Roger L. Bagula, Nov 19 2008

Keywords

• nonn
• less
• base

Programs

Mathematica

Table[Apply[Plus, IntegerDigits[Sum[Prime[n + m], {m, 0, 7}]]], {n, 1, 100}]

Formula

a(n) = A007953( A127335(n) ). [Joerg Arndt, Aug 28 2013]