OFFSET
0,2
COMMENTS
Each term is relatively prime to all others except for the pairs (2,4) and (3,9).
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..15
FORMULA
a(n) = A245384(n) + 1 for n>0.
MATHEMATICA
a[ n_] := If[ n < 4, Max[1, n+1], a[n] = 1 + a[n-1] (a[n-2] - 1) (a[n-3] - 1)];
PROG
(PARI) {a(n) = if( n<4, max(1, n+1), 1 + a(n-1) * (a(n-2) - 1) * (a(n-3) - 1))};
(Magma) I:=[2, 3, 4]; [n le 3 select I[n] else 1 + Self(n-1)*(Self(n-2) - 1)*(Self(n-3) - 1): n in [1..30]]; // G. C. Greubel, Aug 05 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael Somos, Aug 21 2014
EXTENSIONS
Added a(0)=1 & changed offset - N. J. A. Sloane, Jun 16 2021
STATUS
approved