A097224 Nondecreasing subsequence of A020481.

2, 3, 3, 3, 5, 5, 5, 5, 7, 7, 7, 7, 7, 7, 7, 7, 19, 19, 23, 31, 31, 47, 73, 103, 139, 173, 173, 173, 211, 233, 293, 313, 331, 359, 383, 389, 389, 523, 601, 727, 751, 829, 929, 997, 1039, 1093, 1163, 1321, 1427, 1583

Offset: 1

Author

Farideh Firoozbakht, Aug 09 2004

Keywords

• nonn

Crossrefs

Cf. A020481, A051610, Union(A097224)=A025019.

Programs

Mathematica

c[n_] := Block[{m = 2}, While[ !PrimeQ[2n - Prime[m]], m++ ]; Prime[m]]; v={2}; Do[ p = c[n]; If[ p >= v1, v1 = p; AppendTo[v, p]; Print[p]], {n, 3, 215000000}]; v

Extensions

More terms from Robert G. Wilson v, Aug 10 2004