|
|
A373678
|
|
Sums of maximal runs of non-prime-powers.
|
|
12
|
|
|
1, 6, 10, 12, 29, 18, 63, 24, 26, 28, 30, 138, 117, 42, 135, 48, 153, 280, 60, 125, 131, 207, 72, 380, 80, 82, 430, 651, 297, 102, 315, 108, 333, 819, 369, 126, 259, 670, 138, 1296, 150, 770, 800, 495, 168, 513, 880, 180, 1674, 192, 585, 198, 2255, 2387, 675
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
We consider 1 to be a power of a prime and a non-prime-power, but not a prime-power.
A run of a sequence (in this case A361102) is an interval of positions at which consecutive terms differ by one.
|
|
LINKS
|
|
|
EXAMPLE
|
The maximal runs of non-powers of primes begin:
1
6
10
12
14 15
18
20 21 22
24
26
28
30
33 34 35 36
38 39 40
42
44 45 46
48
50 51 52
54 55 56 57 58
60
|
|
MATHEMATICA
|
Total/@Split[Select[Range[100], !PrimePowerQ[#]&], #1+1==#2&]//Most
|
|
CROSSREFS
|
A025528 counts prime-powers up to n.
A057820 gives first differences of consecutive prime-powers, gaps A093555.
See link for composite, prime, nonsquarefree, and squarefree runs.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|