OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
FactorInteger[Total[#]][[-1, 1]]&/@Partition[Range[100], 3, 1] (* Harvey P. Dale, Apr 03 2011 *)
PROG
(Haskell)
a076566 = a006530 . (* 3) . (+ 1) -- Reinhard Zumkeller, Oct 03 2012
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 19 2002
STATUS
approved