A104298 a(n) = prime((a(n-1) + 1)/2), a(1)=15.

15, 19, 29, 47, 89, 197, 523, 1667, 6397, 29437, 160423, 1023227, 7552957, 63845779, 612095179, 6597973097, 79345496843, 1057111639847, 15505433597669

Offset

1,1

Comments

All primes except a(1) which is any odd integer; 15 is first a(n) missing in A104296; various a(1)'s A104296-A104304.

Links

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

Mathematica

a[1] = 15; a[n_] := a[n] = Prime[(a[n - 1] + 1)/2]; Table[ a[n], {n, 19}] (* Robert G. Wilson v, Mar 24 2005 *)
NestList[Prime[(#+1)/2]&, 15, 18] (* Harvey P. Dale, Aug 04 2018 *)

Crossrefs

Cf. A104296, A104297, A104299, A104300, A104301, A104302, A104303, A104304.

Sequence in context: A234849 A164564 A211329 * A032475 A169728 A167054

Adjacent sequences: A104295 A104296 A104297 * A104299 A104300 A104301

Keyword

easy,nonn

Author

Zak Seidov, Feb 28 2005

Extensions

a(14) - a(19) from Robert G. Wilson v, Mar 24 2005

Status

approved