OFFSET
0,2
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..448 (terms 0..99 from M. F. Hasler)
M. F. Hasler, in reply to Sebastian M. Ruiz, All integers?, PrimenumbersTheory group.io, Nov. 21, 2025.
MAPLE
a:= proc(n) option remember; `if`(n<1, 1, (p->
a(n-1)*(1+p(n))/(p(n+1)-p(n)))(ithprime))
end:
seq(a(n), n=0..24); # Alois P. Heinz, Apr 22 2026
MATHEMATICA
FoldList[Times, 1, Map[(#[[1]] + 1)/(#[[2]] - #[[1]]) &, Partition[Prime[Range[25]], 2, 1]]] (* Paolo Xausa, Apr 22 2026 *)
PROG
(PARI) A390839(n, p=2)=prod(k=1, n, (p+1)/(-p+p=prime(k+1))) \\ M. F. Hasler, Nov 21 2025
CROSSREFS
Cf. A054640.
KEYWORD
nonn,less
AUTHOR
M. F. Hasler, Nov 21 2025
STATUS
approved
