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 A104373 #16 Apr 08 2024 06:54:56 %S A104373 3,4,5,6,9,11 %N A104373 Numbers m such that (A104350(m)-1, A104350(m)+1) is a twin prime pair. %C A104373 No more terms < 2000. - _David Wasserman_, Apr 24 2008 %C A104373 a(7) > 5000, if it exists. - _Amiram Eldar_, Apr 08 2024 %e A104373 a(5)=9: A104350(9) = 2*3*2*5*3*7*2*3 = 7560, A000040(959) = 7559 = 7560-1, A000040(960) = 7561 = 7560+1. %t A104373 Position[FoldList[Times, Array[FactorInteger[#][[-1, 1]] &, 100]], _?(PrimeQ[# - 1] && PrimeQ[# + 1] &)] // Flatten (* _Amiram Eldar_, Apr 08 2024 *) %Y A104373 Cf. A104350, A104357, A104364, A104365, A104372. %Y A104373 Cf. A001359, A006512, A014574. %K A104373 nonn,more %O A104373 1,1 %A A104373 _Reinhard Zumkeller_, Mar 06 2005