A163580 Primes of the form floor(k+A000217(k-1)*Pi), Pi = A000796, k integer.

5, 53, 151, 967, 1129, 2129, 2617, 2879, 4217, 4549, 6397, 6599, 7013, 7877, 8101, 8329, 9029, 10007, 10259, 11839, 12391, 26881, 30707, 35257, 35729, 36683, 37649, 41131, 41641, 49667, 50227, 56597, 63347, 71143, 75211, 79393, 82963, 102797

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Mathematica

s=0; lst={}; Do[s+=n; p=IntegerPart[s]; If[PrimeQ[p], AppendTo[lst, p]], {n, 1, 7!, Pi}]; lst

Prog

(PARI) for(n=1, 500, m=floor(n + n*(n-1)*Pi/2); if(isprime(m), print1(m, ", "))) \\ G. C. Greubel, Jul 28 2017

Crossrefs

Cf. A163579

Sequence in context: A101190 A201017 A106097 * A075540 A006562 A094847

Adjacent sequences: A163577 A163578 A163579 * A163581 A163582 A163583

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 31 2009

Extensions

Definition clarified by R. J. Mathar, Aug 01 2009

Status

approved