A119448 -id:A119448 - cp's OEIS frontend

A119662 Primes of the form k! + k^2 + 1.

2, 3, 7, 41, 757

Offset: 1

Jonathan Vos Post, Jul 28 2006

nonn

Primes of the form A004664(k) + 1.
For k! + k^2 + 1 to be prime, k > 1, it is necessary but not sufficient for k to be even.
No more terms for k < 1150. [Vincenzo Librandi, Dec 22 2010]

Cf. A000040, A004664, A119448.

[ a: n in [0..1150] | IsPrime(a) where a is Factorial(n)+n^2+1 ]; // Vincenzo Librandi, Dec 22 2010

lst={}; Do[s=n!+n^2;If[PrimeQ[p=s+1], AppendTo[lst, p]], {n, 0, 5!}];lst (* Vladimir Joseph Stephan Orlovsky, Sep 27 2008 *)

A000040 INTERSECTION A227546 = primes INTERSECTION {k! + k^2 + 1}.

A119987 Primes of the form k^k + k^3 + 1.

Original entry on oeis.org

2, 3, 13, 3251, 16777729, 387421219, 11112006825560761, 443426488243037769948249630619149912487, 1075911801979993982060429252856123779115487368830416064665177

Offset: 1

Jonathan Vos Post, Aug 03 2006

nonn

The values of k such that k^k + k^2 + 1 is prime are 0, 1, 2, 5, 8, 9, 14, 27, 38, 62, 255, (4000), .... per Vincenzo Librandi's extension, 2 is an element iff one defines 0^0 = 1.

Charles R Greathouse IV, Table of n, a(n) for n = 1..11

Cf. A000040, A120479, A120480, A119264, A119448.

[ a: n in [0..250] | IsPrime(a) where a is n^n+n^3+1 ]; // Vincenzo Librandi, Dec 22 2010

f[n_] := (n^n + n^3 + 1); Select[f@ Range@ 40, PrimeQ]

for(n=1, 255, if(ispseudoprime(t=n^n+n^3+1), print1(t", "))); v \\ Charles R Greathouse IV, Feb 17 2011

2 added by Vincenzo Librandi, Dec 22 2010

cp's OEIS Frontend

A119662 Primes of the form k! + k^2 + 1.

Views

Author

Keywords

Comments

Crossrefs

Programs

Magma

Mathematica

Formula