This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A060849 #14 Mar 23 2020 13:22:08
%S A060849 2,4,4,4,6,6,6,6,6,4,14,14,4,6,10,6,10,10,8,12,18,12,6,14,14,10,34,6,
%T A060849 24,14,14,24,24,6,12,16,16,22,8,6,10,10,12,10,18,10,6,16,8,18,10,18,6,
%U A060849 20,20,34,18,14,10,12,30,24,8,16,14,6,36,20,12,28,12,10,12,14,20,22,22
%N A060849 Difference between 2 consecutive primes between which a nontrivial power of prime is found.
%H A060849 Michel Marcus, <a href="/A060849/b060849.txt">Table of n, a(n) for n = 1..10000</a>
%F A060849 a(n) = nextprime(A246547(n)) - prevprime(A246547(n)) = A013633(A246547(n)). [corrected by _Michel Marcus_, Mar 23 2020]
%e A060849 59049=3^10 is between 59029 and 59051, so the corresponding term is 59051-59029=22.
%o A060849 (PARI) ispp(n) = isprimepower(n) >= 2; \\ A246547
%o A060849 lista(nn) = {for (n=1, nn, if (ispp(n), print1(nextprime(n) - precprime(n), ", ")););} \\ _Michel Marcus_, Mar 23 2020
%Y A060849 Cf. A246547, A007917, A007918, A013632, A013633, A049711.
%K A060849 nonn
%O A060849 1,1
%A A060849 _Labos Elemer_, May 03 2001