%I #7 Jul 25 2021 02:36:55
%S 13,37,151,1453,12697,106033,151687,362953,712891,1040503,5767381,
%T 7004353,7004353,13709041,18260617,31955503,46397161,59015191,
%U 98184703,102065653,127516537,208879507,286625461,441290203,866431387,916441453,1299786853,1574390317,1830772297
%N Primes of the form p^3 + p^2 + 1, where p is a prime.
%C Only primes p of the form 3k+2 can yield terms of this sequence (the only exception is a(2)=37, generated by p=3).
%C No prime of this sequence can generate another term in this sequence because all terms of this sequence are 1 modulo 3.
%e a(12) = 7004353 = 191^3 + 191^2 + 1.
%t Select[Table[x^3+x^2+1,{x,Prime[Range[200]]}],PrimeQ] (* _Harvey P. Dale_, Jul 31 2014 *)
%K nonn
%O 1,1
%A Avik Roy (avik_3.1416(AT)yahoo.co.in), Jan 30 2009
%E More terms from _Harvey P. Dale_, Jul 31 2014