A180946 Primes p such that p(i)*p(i+1)+p(i+2)+p(i+3) is a prime.
5, 7, 11, 13, 29, 31, 37, 61, 67, 73, 89, 97, 103, 107, 139, 157, 167, 179, 181, 193, 233, 283, 349, 367, 409, 433, 569, 587, 599, 607, 619, 691, 743, 761, 769, 809, 823, 1021, 1039, 1051, 1151, 1201, 1291, 1319, 1361, 1373, 1399, 1481, 1483, 1499, 1549, 1567
Offset: 1
Keywords
Examples
a(5)=29 since 29*31+37+41=977 is a prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Transpose[Select[Partition[Prime[Range[260]],4,1],PrimeQ[#[[1]]#[[2]]+ #[[3]]+ #[[4]]]&]][[1]] (* Harvey P. Dale, Jan 01 2012 *)
Extensions
Inserted 1021 to 1201 - R. J. Mathar, Oct 23 2010
Comments