|
|
|
|
8, 12, 18, 24, 30, 36, 48, 60, 72, 84, 102, 120, 132, 144, 174, 204, 210, 216, 246, 276, 288, 300, 330, 360, 372, 384, 390, 396, 426, 456, 468, 480, 510, 540, 552, 564, 594, 624, 660, 696, 768, 840, 852, 864, 894, 924, 984, 1044, 1092, 1140
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Total /@ Partition[#, 2, 1] &@ Select[Prime@ Range@ 105, Total@ Boole@ Map[PrimeQ, # + 2 {-1, 1}] > 0 &] (* Michael De Vlieger, Jan 11 2017 *)
|
|
PROG
|
(PARI) {
t=4;
forstep(n=6, 1000, 6,
if(isprime(n-1)&&isprime(n+1),
k=2*n; print1((k+t)/2", ")
; print1(k", "); t=k
)
)
}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|