A130710 - OEIS

A130710

The subsequence of primes in the sequence b(k) defined by b(0)=2, b(1)=7, b(2)=13, and b(k) = abs(b(k) - prime(k-1) + 1).

2, 7, 13, 11, 7, 3, 13, 5, 17, 11, 19, 17, 23, 19, 31, 41, 37, 43, 53, 47, 71, 59, 61, 97, 103, 113, 79, 137, 101, 139, 151, 157, 173, 137, 199, 149, 211, 223, 173, 227, 181, 197, 263, 199, 211, 283, 271, 277, 331, 307, 353, 373, 383, 409, 419, 419, 433, 449

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

a[0] = 2; a[1] = 7; a[2] = 13; a[n_] := a[n] = Abs[a[n - 1] - Prime[n - 1] + 1] a0 = Flatten[Table[If[PrimeQ[a[n]], a[n], {}], {n, 0, 100}]]

CROSSREFS

Sequence in context: A103886 A231900 A323740 * A145300 A240029 A340104

Adjacent sequences: A130707 A130708 A130709 * A130711 A130712 A130713

KEYWORD

nonn,less

AUTHOR

Roger L. Bagula, Jul 01 2007

EXTENSIONS

Edited and more terms from Sean A. Irvine, Jul 21 2026

STATUS

approved