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,1

Links

Table of n, a(n) for n=1..50.

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

Crossrefs

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

Sequence in context: A137847 A295820 A164023 * A087418 A087731 A308172

Adjacent sequences: A097221 A097222 A097223 * A097225 A097226 A097227

Keyword

nonn

Author

Farideh Firoozbakht, Aug 09 2004

Extensions

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

Status

approved