A143828 Primes of the form 10*k^2 - 1.
89, 359, 809, 1439, 4409, 8999, 10889, 12959, 20249, 23039, 35999, 47609, 51839, 56249, 65609, 75689, 98009, 116639, 123209, 129959, 136889, 143999, 151289, 158759, 166409, 234089, 272249, 282239, 302759, 313289, 334889, 404009, 416159
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..5000
Programs
-
Magma
[a: n in [1..400] | IsPrime(a) where a is 10*n^2-1]; // Vincenzo Librandi, Dec 07 2011
-
Mathematica
p = 10; a = {}; Do[k = p x^2 - 1; If[PrimeQ[k], AppendTo[a, k]], {x, 1, 1000}]; a Select[Table[10n^2-1,{n,1,800}],PrimeQ] (* Vincenzo Librandi, Dec 07 2011 *)
Comments