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 A360841 #15 Feb 16 2025 08:34:04 %S A360841 2592,139968,995328,37340352,63700992,99574272,169869312,414720000, %T A360841 1399680000,4076863488,10871635968,17714700000,22781250000, %U A360841 25312500000,35888419872,51840000000,82012500000,98802571392,135304020000,136136700000,170749797552,174960000000,196730062848 %N A360841 4-full numbers (A036967) sandwiched between twin primes. %H A360841 Amiram Eldar, <a href="/A360841/b360841.txt">Table of n, a(n) for n = 1..1520</a> (terms below 3*10^19) %H A360841 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TwinPrimes.html">Twin Primes</a>. %H A360841 Wikipedia, <a href="https://en.wikipedia.org/wiki/Powerful_number#Generalization">Powerful number: Generalization</a>. %H A360841 <a href="/index/Pow#powerful">Index entries for sequences related to powerful numbers</a>. %e A360841 2592 = 2^5 * 3^4 is a term since it is 4-full and 2591 and 2593 are twin primes. %t A360841 Select[6*Range[2*10^5], PrimeQ[# - 1] && PrimeQ[# + 1] && Min[FactorInteger[#][[;; , 2]]] > 3 &] %o A360841 (PARI) is(n) = isprime(n-1) && isprime(n+1) && vecmin(factor(n)[,2]) > 3; %Y A360841 Intersection of A014574 and A036967. %Y A360841 Subsequence of A113839 and A360840. %K A360841 nonn %O A360841 1,1 %A A360841 _Amiram Eldar_, Feb 23 2023