OFFSET
0,1
COMMENTS
MATHEMATICA
tp = Select[Prime@Range@ 16340, PrimeQ[# -2] || PrimeQ[# +2] &]; f[n_] := Length@ IntegerPartitions[n, {2, 2}, tp]; t[_] := 0; k = 2; While[k < 10201, a = f@k; If[ t[a] == 0, t[a] = k]; k += 2]; t /@ Range[0, 75]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 19 2024
STATUS
approved