%I #13 Oct 25 2023 09:28:45
%S 3,1,2,2,4,2,4,2,4,6,2,6,4,2,4,6,6,2,6,4,2,6,4,6,8,4,2,4,2,4,14,4,6,2,
%T 10,2,6,6,4,6,6,2,10,2,4,2,12,12,4,2,4,6,2,10,6,6,6,2,6,4,2,10,14,4,2,
%U 4,14,6,10,2,4,6,8,6,6,4,6,8,4,8,10,2,10,2,6,4,6,8,4,2,4,12,8,4,8
%N Number of repetitions in A007918.
%C Except for the first 2 terms, these numbers are always even. Conjecture: the number 2 occurs infinitely often in this sequence.
%C Essentially the same as A075526 and A054541. - _R. J. Mathar_, Jun 15 2008
%C 3 together with A001223. - _Omar E. Pol_, Nov 01 2013
%H Paolo Xausa, <a href="/A125266/b125266.txt">Table of n, a(n) for n = 1..10000</a>
%e A007918(0) = 2, A007918(1)=2, A007918(2) = 2. So 2 repeats 3 times, giving 3 as the first term in the table.
%t Join[{3},Differences[Prime[Range[100]]]] (* _Paolo Xausa_, Oct 25 2023 *)
%o (PARI) nextprimerep(n) = { local(x,y,y1,c=0); y1=2; for(x=0,n, y=nextprime(x); if(y==y1,c++,y1=y;print1(c",");c=1); ) }
%Y Cf. A001223, A007918, A054541, A075526.
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Jan 15 2007
|