A374609 Numbers k such that k*(k+1) is primorial (a term in A002110).
1, 2, 5, 14, 714
Offset: 1
Examples
714 is a term because 714*715 = 510510 = A002110(7) = 2*3*5*7*11*13*17.
Crossrefs
Programs
-
Mathematica
nn = 1000; MapIndexed[Set[P[First[#2]], #1] &, FoldList[Times, Prime@ Range[nn]]]; Monitor[Reap[Do[(d = Floor@ Sqrt[#]; If[Divisible[#, d], Sow[d]]) &[P[i]], {i, nn}]][[-1, 1]], i] (* Michael De Vlieger, Jul 14 2024 *)
Formula
From Alois P. Heinz, Jul 13 2024: (Start)
Comments