login
Difference between the n-th prime and the next prime-power (exclusive).
30

%I #12 Oct 25 2024 11:44:45

%S 1,1,2,1,2,3,2,4,2,2,1,4,2,4,2,6,2,3,4,2,6,2,6,8,4,2,4,2,4,8,1,6,2,10,

%T 2,6,6,4,2,6,2,10,2,4,2,12,12,4,2,4,6,2,2,5,6,6,2,6,4,2,6,14,4,2,4,14,

%U 6,6,2,4,6,2,6,6,4,6,8,4,8,10,2,10,2,6

%N Difference between the n-th prime and the next prime-power (exclusive).

%F a(n) = A000015(prime(n)) - prime(n).

%F a(n) = A345531(n) - prime(n).

%F a(n) = A377282(prime(n)).

%e The twelfth prime is 37, with next prime-power 41, so a(12) = 4.

%t Table[NestWhile[#+1&,Prime[n]+1,!PrimePowerQ[#]&]-Prime[n],{n,100}]

%o (Python)

%o from itertools import count

%o from sympy import prime, factorint

%o def A377281(n): return -(p:=prime(n))+next(filter(lambda m:len(factorint(m))<=1, count(p+1))) # _Chai Wah Wu_, Oct 25 2024

%Y For prime instead of prime-power we have A001223.

%Y For powers of two instead of primes we have A013597, A014210, A014234, A244508, A304521.

%Y This is the restriction of A377282 to the prime numbers.

%Y For previous instead of next prime-power we have A377289, restriction of A276781.

%Y A000015 gives the least prime-power >= n.

%Y A000040 lists the primes, differences A001223.

%Y A000961 lists the powers of primes, differences A057820, complement A361102.

%Y A031218 gives the greatest prime-power <= n.

%Y A080101 counts prime-powers between primes (exclusive), cf. A377286, A377287, A377288.

%Y A246655 lists the prime-powers not including 1.

%Y Cf. A001597, A024619, A053289, A053707, A059305, A064113, A366833, A376596, A376597, A376598, A377051, A377054.

%K nonn

%O 1,3

%A _Gus Wiseman_, Oct 23 2024