OFFSET
2,6
COMMENTS
EXAMPLE
A196941(3) = 2, which is the first prime number, so a(3) = 1;
MATHEMATICA
FactorSet[seed_] := Module[{fset2, a, l, i}, a = FactorInteger[seed]; l = Length[a]; fset2 = {}; Do[fset2 = Union[fset2, {a[[i]][[1]]}], {i, 1, l}]; fset2]; Table[min = n; Do[r = n - k; s = Union[FactorSet[k], FactorSet[r]]; If[a = s[[Length[s]]]; a < min, min = a], {k, 1, IntegerPart[n/2]}]; PrimePi[min], {n, 2, 88}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Lei Zhou, Oct 07 2011
STATUS
approved