OFFSET
1,1
COMMENTS
The terms are easily seen to be distinct. It is conjectured that every element is prime. Do all primes occur in the sequence?
First 1000 terms are primes. - Mauro Fiorentini, Aug 01 2020
LINKS
Mauro Fiorentini, Table of n, a(n) for n = 1..1000
MATHEMATICA
<<NumberTheory`PrimeQ` (* Load ProvablePrimeQ function, needed below. *)
f[1]=4; f[n_] := f[n]=f[n-1]a[n-1]; a[n_] := a[n]=Module[{i}, For[i=2, True, i++, If[ProvablePrimeQ[f[n]-i], Return[i]]]]
PROG
(MuPAD) f := 4:for n from 1 to 50 do a := f-numlib::prevprime(f-2):f := f*a:print(a) end_for
CROSSREFS
KEYWORD
nonn
AUTHOR
Frank Buss (fb(AT)frank-buss.de), Feb 19 2002
EXTENSIONS
Edited by Dean Hickerson, Jun 10 2002
STATUS
approved