OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = Sum (A007376(n+k)*10^(4-k): 0 <= k <= 4).
MATHEMATICA
nn=40; With[{tbl=Flatten[IntegerDigits/@Range[nn]]}, Table[FromDigits[ Take[tbl, {n, n+4}]], {n, nn}]](* Harvey P. Dale, Aug 10 2011 *)
PROG
(Haskell)
a193493 n = a193493_list !! (n-1)
a193493_list = f a007376_list where
f xs'@(x:xs) = ((foldl (\u v -> 10*u + v) 0) $ take 5 xs') : f xs
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jul 28 2011
STATUS
approved