OFFSET
0,4
COMMENTS
See also graph of this sequence.
LINKS
Robert Israel, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = a(n+212) for n >= 89. - Robert Israel, Feb 06 2017
MAPLE
for i from 0 to 2 do A[i]:= 1: G[i]:= 1 od:
for i from 3 to 303 do
A[i]:= G[i-1]+G[i-2]+G[i-3];
G[i]:= max(numtheory:-factorset(A[i]));
od:
seq(A[i], i=1..303); # Robert Israel, Feb 06 2017
MATHEMATICA
a[0] = a[1] = a[2] = 1; a[n_] := a[n] = FactorInteger[a[n - 1]][[-1, 1]] + FactorInteger[a[n - 2]][[-1, 1]] + FactorInteger[a[n - 3]][[-1, 1]]; Table[a@ n, {n, 0, 64}] (* Michael De Vlieger, Feb 07 2017 *)
CROSSREFS
KEYWORD
AUTHOR
Altug Alkan, Feb 06 2017
STATUS
approved