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 A360843 #15 Feb 16 2025 08:34:04 %S A360843 139968,98802571392,174960000000,889223142528,1594323000000, %T A360843 2348273369088,19144761127488,28697814000000,56358560858112, %U A360843 84537841287168,150289495621632,186624000000000,328341017826432,369056250000000,392147405854848,578415690713088,597871125000000 %N A360843 6-full numbers (A069493) sandwiched between twin primes. %H A360843 Amiram Eldar, <a href="/A360843/b360843.txt">Table of n, a(n) for n = 1..74</a> (terms below 3*10^19) %H A360843 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TwinPrimes.html">Twin Primes</a>. %H A360843 Wikipedia, <a href="https://en.wikipedia.org/wiki/Powerful_number#Generalization">Powerful number: Generalization</a>. %H A360843 <a href="/index/Pow#powerful">Index entries for sequences related to powerful numbers</a>. %e A360843 139968 = 2^6 * 3^7 is a term since it is 6-full and 139967 and 139969 are twin primes. %t A360843 Select[6*Range[10^5], PrimeQ[# - 1] && PrimeQ[# + 1] && Min[FactorInteger[#][[;; , 2]]] > 5 &] %o A360843 (PARI) is(n) = isprime(n-1) && isprime(n+1) && vecmin(factor(n)[,2]) > 5; %Y A360843 Intersection of A014574 and A069493. %Y A360843 Subsequence of A113839, A360840, A360841 and A360842. %K A360843 nonn %O A360843 1,1 %A A360843 _Amiram Eldar_, Feb 23 2023