A259067 Sum of digits of Honaker primes (A033548).

5, 11, 16, 13, 14, 11, 5, 11, 11, 14, 14, 16, 8, 7, 14, 11, 17, 17, 16, 19, 20, 13, 16, 14, 16, 13, 22, 13, 14, 13, 19, 23, 14, 16, 16, 14, 17, 13, 14, 17, 14, 20, 23, 10, 11, 16, 17, 19, 20, 20, 23, 23, 23, 11, 13, 20, 13, 20, 17, 19, 10, 19, 13, 14, 16, 20, 10, 10, 13, 10, 13, 10, 13, 13, 19, 17, 13, 11, 14, 14, 14, 22, 16, 19, 20, 16, 20, 19, 20, 19, 20

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Formula

a(n) = A007953(A033548(n)) = A007953(A033549(n)).

Prog

(PARI) lista(nn) = forprime(p=2, nn, if ((sd=sumdigits(p)) == sumdigits(primepi(p)), print1(sd, ", ")); ); \\ Michel Marcus, Jun 18 2015
(PARI) go(lim)=my(v=List(), n, s); forprime(p=2, lim, s=sumdigits(n++); if(sumdigits(p)==s, listput(v, s))); Vec(v) \\ Charles R Greathouse IV, Jun 18 2015

Crossrefs

Cf. A007605, A007953, A033548, A033549.

Sequence in context: A137010 A137007 A137012 * A314080 A337947 A072557

Adjacent sequences: A259064 A259065 A259066 * A259068 A259069 A259070

Keyword

nonn,base

Author

Zak Seidov, Jun 18 2015

Status

approved