A175614 a(1)=1, a(2)=5, then a(n)=a(n-2)+4, if n odd else a(n)=prime(primepi(a(n-2)+4)).

1, 5, 5, 17, 9, 31, 13, 47, 17, 67, 21, 83, 25, 103, 29, 127, 33, 149, 37, 167, 41, 191, 45, 211, 49, 233, 53, 257, 57, 277, 61, 307, 65, 331, 69, 353, 73, 379, 77, 401, 81, 431, 85, 449, 89, 467, 93, 499, 97, 523, 101, 563, 105, 587, 109, 607, 113, 631, 117, 653, 121

Offset

1,2

Links

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

Mathematica

(*1*)Flatten[Table[{k, Prime[k+2]}, {k, 1, 200, 4}]]
(*2*)s={1}; a=1; Do[AppendTo[s, {Prime[a+2], a=a+4}], {100}]; Flatten[s]

Crossrefs

Sequence in context: A273482 A273792 A273855 * A214022 A125256 A228564

Adjacent sequences: A175611 A175612 A175613 * A175615 A175616 A175617

Keyword

nonn

Author

Zak Seidov, Jul 24 2010

Status

approved