A379156
Positions in A246655 (prime powers) of terms q such that there is no prime between q and the next prime power.
Original entry on oeis.org
6, 14, 41, 359, 3589
Offset: 1
For perfect powers instead of prime powers we have
A274605.
A000015 gives the least prime power >= n.
A031218 gives the greatest prime power <= n.
A065514 gives the greatest prime power < prime(n), difference
A377289.
A131605 finds perfect powers that are not prime powers.
Cf.
A025474,
A046933,
A067871,
A080101,
A080769,
A175106,
A178700,
A345531,
A377281,
A377287,
A377432,
A377434.
-
v=Select[Range[100],PrimePowerQ];
Select[Range[Length[v]-1],FreeQ[Range[v[[#]],v[[#+1]]],_?PrimeQ]&]
Comments