OFFSET
1,6
MATHEMATICA
Join[{1, 1}, Table[If[IntegerQ[Log[2, n-3]], 1, Select[ Transpose[ FactorInteger[ n-3]][[1]], #>2&][[1]]], {n, Prime[Range[3, 80]]}]] (* Harvey P. Dale, Jul 16 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved