A376287 Index of first occurrence of n in A129363, or 0 if no such number exists.

2, 6, 10, 22, 48, 120, 114, 298, 240, 540, 288, 1620, 210, 300, 702, 840, 660, 2312, 1290, 4284, 1332, 2580, 2070, 2100, 1890, 5100, 2340, 5580, 3720, 6660, 3612, 6240, 2310, 10288, 3540, 4680, 4788, 5460, 4410, 5940, 6120, 10200, 4200, 4620, 3570, 10560, 5700, 16588, 5250

Offset: 0

Author

Robert G. Wilson v, Sep 19 2024

Keywords

• nonn

Comments

Twin prime analogous to A023036.

Conjecture: a(n) > 0. Checked to 1010.

Conjectured last occurrence: 4208, 24536, 28916, 21278, 51806, 68078, 73538, 89216, 83978, ..., .

Conjecture number of terms for A129363(k) = n: 35, 115, 285, 327, 557, 537, 723, 652, 882, ..., .

A129363(n) = 0: A007534.

Crossrefs

Cf. A001097, A023036, A129363.

Programs

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]