OFFSET
3,1
MATHEMATICA
f[n_] := Block[{k = 4, r}, While[r = Mod[n, k]; r < 3 || k - r < 3, k++]; k - 1]; Array[f, 100, 3]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jan 09 2013
STATUS
approved