A220188 Number of representations of n-th prime as 2p + 3q (p, q primes not necessarily distinct).

0, 0, 0, 0, 0, 1, 0, 2, 1, 1, 2, 2, 1, 4, 3, 2, 2, 4, 4, 3, 4, 4, 4, 2, 5, 3, 5, 4, 3, 3, 6, 4, 4, 5, 4, 7, 5, 6, 6, 6, 5, 6, 5, 6, 6, 6, 7, 9, 8, 7, 6, 6, 7, 7, 6, 9, 5, 10, 7, 5, 9, 6, 9, 7, 10, 8, 10, 8, 10, 10, 8, 7, 10, 8, 7, 9, 6, 10, 8, 8, 9, 10, 10, 10

Offset

1,8

Comments

For n>7 a(n)>0.

Links

Zak Seidov, Table of n, a(n) for n = 1..10000

Mathematica

s={}; Do[mx = Prime[k]; c = 0; Do[p = Prime[k]; If[PrimeQ[q = (mx - 3 p)/2] , c++], {k, PrimePi[(mx - 4)/3]}]; AppendTo[s, c], {k, 200}]; s

Crossrefs

Cf. A079026, A219955, A219956, A219957, A219958, A219959.

Sequence in context: A025828 A024165 A023191 * A238551 A289676 A238189

Adjacent sequences: A220185 A220186 A220187 * A220189 A220190 A220191

Keyword

nonn

Author

Zak Seidov, Dec 07 2012

Status

approved