OFFSET
1,1
COMMENTS
A run of a sequence (in this case A000961) is an interval of positions at which consecutive terms differ by one.
LINKS
EXAMPLE
The maximal runs of powers of primes begin:
1 2 3 4 5
7 8 9
11
13
16 17
19
23
25
27
29
31 32
37
41
43
47
49
MATHEMATICA
pripow[n_]:=n==1||PrimePowerQ[n];
Total/@Split[Select[Range[nn], pripow], #1+1==#2&]//Most
CROSSREFS
A025528 counts prime-powers up to n.
See link for composite, prime, nonsquarefree, and squarefree runs.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 16 2024
STATUS
approved