OFFSET
1,1
COMMENTS
No more terms < 2000. - David Wasserman, Apr 24 2008
a(7) > 5000, if it exists. - Amiram Eldar, Apr 08 2024
EXAMPLE
MATHEMATICA
Position[FoldList[Times, Array[FactorInteger[#][[-1, 1]] &, 100]], _?(PrimeQ[# - 1] && PrimeQ[# + 1] &)] // Flatten (* Amiram Eldar, Apr 08 2024 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Reinhard Zumkeller, Mar 06 2005
STATUS
approved