cp's OEIS Frontend

A226781 Number of 1's in A132199 preceding the n-th Rowland prime, A137613(n).

%I A226781 #30 Jul 05 2013 04:26:02
%S A226781 3,3,7,7,17,17,39,39,40,40,89,89,91,95,95,100,215,215,447,447,448,448,
%T A226781 917,917,919,1862,1862,3750,3750,7528,7528,7533,15097,15097,15122,
%U A226781 15122,15124,30284,30284,60606,60606,60607,60607,60656,60656,121356,121356
%N A226781 Number of 1's in A132199 preceding the n-th Rowland prime, A137613(n).
%C A226781 The length of the clusters of 1's in A132199 is 3, 0, 4, 0, 10, 0, 22, 0, 1, 0, 49,.. and this sequence here are the partial sums of these lengths.
%p A226781 cd1 := 0 ;
%p A226781 for i from 1 do
%p A226781     if A132199(i) = 1 then
%p A226781         cd1 := cd1+1 ;
%p A226781     else
%p A226781         printf("%d,\n",cd1) ;
%p A226781     end if;
%p A226781 end do: # _R. J. Mathar_, Jul 04 2013
%Y A226781 Cf. A132199, A137613.
%K A226781 nonn
%O A226781 1,1
%A A226781 _Vladimir Shevelev_, Jun 29 2013