|
%I #30 Jul 05 2013 04:26:02
%S 3,3,7,7,17,17,39,39,40,40,89,89,91,95,95,100,215,215,447,447,448,448,
%T 917,917,919,1862,1862,3750,3750,7528,7528,7533,15097,15097,15122,
%U 15122,15124,30284,30284,60606,60606,60607,60607,60656,60656,121356,121356
%N Number of 1's in A132199 preceding the n-th Rowland prime, A137613(n).
%C 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 cd1 := 0 ;
%p for i from 1 do
%p if A132199(i) = 1 then
%p cd1 := cd1+1 ;
%p else
%p printf("%d,\n",cd1) ;
%p end if;
%p end do: # _R. J. Mathar_, Jul 04 2013
%Y Cf. A132199, A137613.
%K nonn
%O 1,1
%A _Vladimir Shevelev_, Jun 29 2013
|
