OFFSET
0,2
COMMENTS
a(n) is the least number k such that A046926(k) = n.
LINKS
Robert Israel, Table of n, a(n) for n = 0..2500
EXAMPLE
a(3) = 21 because 21 can be written as 2*p+q with p and q prime in exactly 3 ways, namely 21 = 2*2+17 = 2*5+11 = 2*7+7, and no smaller number works.
MAPLE
M:= 3000: # to use primes up to M
P:= select(isprime, [2, seq(i, i=3..M, 2)]): nP:= nops(P):
A:= Vector(M):
for i from 1 do
p:= P[i];
if 2*p >= M then break fi;
for j from 1 to nP do
q:= P[j];
v:= 2*p+q;
if v > M then break fi;
A[v]:= A[v]+1;
od od:
K:= max(A):
V:= Array(0..K+1):
for i from 1 to M do
if V[A[i]] = 0 then V[A[i]]:= i fi
od:
L:= min(select(t -> V[t] = 0, [$1..K+1])):
convert(V[0..L-1], list);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jul 03 2022
STATUS
approved