%I #49 Jul 31 2017 03:22:46
%S 1,12,22,24,28,30,40,44,50,62,63,68,74,77,85,94,99,110,117,118,120,
%T 122,129,134,143,145,154,162,164,165,172,175
%N Nonprime numbers n such that n^4 + n^3 + n^2 + n + 1 is prime.
%C A065509 Union {this sequence} = A049409.
%C The corresponding prime numbers n^4 + n^3 + n^2 + n + 1 = 11111_n are in A193366; these Brazilian primes, except 5 which is not Brazilian, belong to A085104 and A285017.
%H R. J. Cano, <a href="/A286094/b286094.txt">Table of n, a(n) for n = 1..10000</a>
%H Bernard Schott, <a href="/A125134/a125134.pdf">Les nombres brésiliens</a>, Quadrature, no. 76, avril-juin 2010, pages 30-38.
%e 12 is in the sequence because 12^4 + 12^3 + 12^2 + 12 + 1 = 11111_12 = 22621, which is prime.
%t Select[Range@ 414, And[! PrimeQ@ #, PrimeQ[Total[#^Range[0, 4]]]] &] (* _Michael De Vlieger_, May 03 2017 *)
%o (PARI) isok(n)=if(n==1,5,if(ispseudoprime(n), 0, isprime(fromdigits([1, 1, 1, 1, 1], n))));
%o getfirstterms(n)={my(L:list, c:small); L=List(); c=0; forstep(k=1, +oo, 1, if(isok(k), listput(L, k); if(c++==n, break))); return(Vec(L))} \\ _R. J. Cano_, May 09 2017
%Y Cf. A049409, A065509, A085104, A088548, A125134, A190527, A193366, A285017.
%K nonn
%O 1,2
%A _Bernard Schott_, May 02 2017