1,1
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Select[Prime[Range[1600]], PrimeQ[(#^3 + 2*#^2 + # + 1)]&] (* Vincenzo Librandi, Oct 30 2012 *)
(MAGMA) [p: p in PrimesUpTo(1600)| IsPrime(p^3 + 2*p^2 + p + 1)]; // Vincenzo Librandi, Oct 30 2012
Cf. A154686.
Sequence in context: A094712 A095281 A106889 * A119839 A107057 A212319
Adjacent sequences: A155025 A155026 A155027 * A155029 A155030 A155031
nonn,easy
Vincenzo Librandi, Jan 19 2009
approved