OFFSET
1,1
FORMULA
EXAMPLE
a(1) = 31 because prevprime(31) + nextprime(31) = 29 + 37 = 66 = 11 * 6.
a(2) = 43 because prevprime(43) + nextprime(43) = 41 + 47 = 88 = 11 * 8.
a(3) = 67 because prevprime(67) + nextprime(67) = 61 + 71 = 132 = 11 * 12.
a(4) = 109 because prevprime(109) + nextprime(109) = 107 + 113 = 220 = 11 * 20.
MATHEMATICA
Prime@ Select[Range[2, 515], Mod[Prime[ # - 1] + Prime[ # + 1], 11] == 0 &] (* Robert G. Wilson v *)
Transpose[Select[Partition[Prime[Range[550]], 3, 1], Divisible[First[#]+ Last[#], 11]&]][[2]] (* Harvey P. Dale, Jul 22 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jan 01 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jan 05 2006
STATUS
approved