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