|
%I #34 Apr 02 2023 10:17:20
%S 3,43,73,157,211,241,421,463,601,757,1123,1483,2551,2971,3307,3907,
%T 4423,4831,5701,6007,6163,6481,8191,9901,11131,12211,12433,13807,
%U 14281,19183,20023,20593,21757,22651,23563,24181,26083,26407,27061,28393,31153,35533
%N Primes of the form n^2 + n + 1 where n is nonprime.
%C These are the primes associated with A182253.
%C All these numbers are in A002383 but not in A053183.
%C All the numbers n^2 + n + 1 = 111_n with n >= 2 are by definition Brazilian numbers: A125134. See Links: "Les nombres brésiliens" - Section V.5 page 35.
%H Harvey P. Dale, <a href="/A185632/b185632.txt">Table of n, a(n) for n = 1..1000</a>
%H Bernard Schott, <a href="http://quadrature.info/">Les nombres brésiliens</a>, Quadrature, no. 76, avril-juin 2010, pages 30-38.
%H Bernard Schott, <a href="/A125134/a125134.pdf">Les nombres brésiliens</a>, Reprinted from Quadrature, no. 76, avril-juin 2010, pages 30-38, included here with permission from the editors of Quadrature.
%t Select[Table[If[PrimeQ[n],Nothing,n^2+n+1],{n,200}],PrimeQ] (* _Harvey P. Dale_, Apr 02 2023 *)
%o (PARI) lista(nn) = {for (n = 1, nn, if (! isprime(n) && isprime(p = n^2 + n + 1), print1(p, ", ");););} \\ _Michel Marcus_, Sep 04 2013
%Y Cf. A002383, A002384, A053182, A053183, A182253.
%Y Cf. A085104, A125134.
%K nonn
%O 1,1
%A _Bernard Schott_, Dec 18 2012
|
