A125266 Number of repetitions in A007918.
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, 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, 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
Offset: 1
Examples
A007918(0) = 2, A007918(1)=2, A007918(2) = 2. So 2 repeats 3 times, giving 3 as the first term in the table.
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Join[{3},Differences[Prime[Range[100]]]] (* Paolo Xausa, Oct 25 2023 *)
-
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); ) }
Comments