Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
1,6
a(n) = (A217659(n) - A185934(n)) / 6.
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
(Last[#]-First[#])/6&/@Select[Partition[Prime[Range[800]], 2, 1], Mod[First[#], 3] == Mod[Last[#], 3]==1&] (* Harvey P. Dale, Feb 26 2013 *)
(Haskell)
a219244 n = a219244_list !! (n-1)
a219244_list = map (`div` 6) $ zipWith (-) a217659_list a185934_list
Sequence in context: A070000 A227736 A228528 * A330231 A323017 A273638
Adjacent sequences: A219241 A219242 A219243 * A219245 A219246 A219247
nonn
Reinhard Zumkeller, Nov 16 2012
approved