OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..200
EXAMPLE
13 = 2*2 + 3*3,
19 = 2*2 + 3*5 = 2*5 + 3*3,
47 = 2*7 + 3*11 = 2*13 + 3*7 = 2*19 + 3*3.
MATHEMATICA
mx = 50000; s = Table[0, {mx}]; Do[p = Prime[k]; Do[a = 2 Prime[i] + 3 p ; s[[a]]++, {i, PrimePi[(mx - 3 p)/2]}], {k, PrimePi[(mx - 4)/3]}]; ta = Table[s[[Prime[k]]], {k, PrimePi[mx ]}]; Table[{k, Prime[Position[ta, k][[1, 1]]]}, {k, 200}] (* for b-file *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 06 2012
STATUS
approved