A104373 Numbers m such that (A104350(m)-1, A104350(m)+1) is a twin prime pair.
3, 4, 5, 6, 9, 11
Offset: 1
Examples
a(5)=9: A104350(9) = 2*3*2*5*3*7*2*3 = 7560, A000040(959) = 7559 = 7560-1, A000040(960) = 7561 = 7560+1.
Programs
-
Mathematica
Position[FoldList[Times, Array[FactorInteger[#][[-1, 1]] &, 100]], ?(PrimeQ[# - 1] && PrimeQ[# + 1] &)] // Flatten (* _Amiram Eldar, Apr 08 2024 *)
Comments