|
| |
|
|
A138375
|
|
Primes of the form n^2+13.
|
|
4
| |
|
|
13, 17, 29, 113, 157, 269, 337, 797, 1613, 1777, 1949, 2129, 3613, 4637, 5197, 6737, 7069, 7757, 8849, 11677, 12113, 13009, 13469, 14897, 15889, 20177, 20749, 23117, 24977
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Vincenzo Librandi, Table of n, a(n) for n = 1..4500
|
|
|
MATHEMATICA
| Intersection[Table[n^2+13, {n, 0, 10^2}], Prime[Range[9*10^3]]] ...or... For[i=13, i<=13, a={}; Do[If[PrimeQ[n^2+i], AppendTo[a, n^2+i]], {n, 0, 100}]; Print["n^2+", i, ", ", a]; i++ ]
Select[Table[n^2+13, {n, 0, 7000}], PrimeQ] (* Vincenzo Librandi, Nov 30 2011 *)
|
|
|
PROG
| (MAGMA) [a: n in [0..700] | IsPrime(a) where a is n^2+13]; // Vincenzo Librandi, Nov 30 2011
|
|
|
CROSSREFS
| Sequence in context: A048520 A033210 A107159 * A180526 A161401 A006567
Adjacent sequences: A138372 A138373 A138374 * A138376 A138377 A138378
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), May 07 2008
|
| |
|
|
