A276264 Centered 25-gonal primes.
151, 251, 701, 1951, 3001, 4751, 10151, 12401, 16651, 19501, 28201, 29401, 33151, 38501, 39901, 45751, 56951, 63901, 65701, 81001, 87151, 95701, 104651, 114001, 136501, 144451, 147151, 158201, 178501, 181501, 193751, 219451, 232901, 257401, 275651, 290701, 318001, 322001
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
- OEIS Wiki, Centered polygonal numbers
- Eric Weisstein's World of Mathematics, Centered Polygonal Number
- Index entries for sequences related to centered polygonal numbers
Programs
-
Maple
select(isprime, [seq((25*k^2+25*k+2)/2, k=1..200)]); # Robert Israel, Sep 01 2016
-
Mathematica
Intersection[Table[(25 k^2 + 25 k + 2)/2, {k, 0, 1000}], Prime[Range[28000]]]
-
PARI
lista(nn) = for(n=1, nn, if(isprime(p=(25*n^2 + 25*n + 2)/2), print1(p, ", "))); \\ Altug Alkan, Aug 26 2016
Comments