A136800 Number of composites in prime gaps of size 3 or larger, in order of appearance.
3, 3, 3, 5, 5, 3, 3, 5, 5, 5, 3, 5, 3, 5, 7, 3, 3, 3, 13, 3, 5, 9, 5, 5, 3, 5, 5, 9, 3, 11, 11, 3, 3, 5, 9, 5, 5, 5, 5, 3, 9, 13, 3, 3, 13, 5, 9, 3, 5, 7, 5, 5, 3, 5, 7, 3, 7, 9, 9, 5, 3, 5, 7, 3, 3, 11, 7, 3, 7, 3, 5, 11
Offset: 1
Examples
a(1)=3 because in the run 8, 9, 10 there are three terms.
Programs
-
Mathematica
Select[#[[2]]-#[[1]]-1&/@Partition[Prime[Range[100]],2,1],#>2&] (* Harvey P. Dale, Apr 08 2015 *)
Extensions
Edited by R. J. Mathar, May 27 2009
Comments