1,1

No more primes up to 21-st recurence step [From Artur Jasinski (grafix(AT)csl.pl), Sep 20 2008]

Eric Weisstein's World of Mathematics, Further information

a = {}; k = 2; Do[k = k^2 - k + 1; If[PrimeQ[k], AppendTo[a, k]], {n, 1, 15}]; a [From Artur Jasinski (grafix(AT)csl.pl), Sep 20 2008]

Cf. A000058.

Sequence in context: A075442 A082993 A071580 this_sequence A068393 A032053 A086542

Adjacent sequences: A014543 A014544 A014545 this_sequence A014547 A014548 A014549

nonn

Eric Weisstein (eric(AT)weisstein.com)