OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
A053669 := proc(n) local i, p ; for i from 1 do p := ithprime(i) ; if igcd(n, p) = 1 then return p; end if; end do: end proc:
A160505 := proc(n) option remember; if n = 1 then 1; else procname(n-1)*A053669(n) ; end if; end proc: # R. J. Mathar, Jul 06 2011
MATHEMATICA
sp[{n_, a_}]:=Module[{p=2}, While[GCD[n+1, p]!=1, p=NextPrime[p]]; {n+1, a*p}]; NestList[sp, {1, 1}, 30][[All, 2]] (* Harvey P. Dale, May 08 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Masahiko Shin, May 16 2009
STATUS
approved