OFFSET
1,1
COMMENTS
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];
Max/@Split[Select[Range[nn], pripow], #1+1==#2&]//Most
CROSSREFS
For runs of prime-powers:
- length A174965
- min A373673
- max A373674 (this sequence)
- sum A373675
For runs of non-prime-powers:
- min A373676
- max A373677
- sum A373678
For antiruns of prime-powers:
- length A373671
- min A120430
- max A006549
- sum A373576
For antiruns of non-prime-powers:
- length A373672
- min A373575
- max A255346
- sum A373679
A025528 counts prime-powers up to n.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 16 2024
STATUS
approved