OFFSET
1,1
LINKS
R. Zumkeller, Table of n, a(n) for n = 1..250
MATHEMATICA
f[n_] := Fold[#2*Floor[#1/#2 + 1] &, n, Reverse@ Range[n - 1]]; a007952=Array[f, 170] ; Select[a007952, PrimeQ] (* James C. McMahon, Jul 19 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 21 2008
STATUS
approved
