

A193493


Put the natural numbers together without spaces and read them five at a time advancing one space each time.


4



12345, 23456, 34567, 45678, 56789, 67891, 78910, 89101, 91011, 10111, 1112, 11121, 11213, 12131, 21314, 13141, 31415, 14151, 41516, 15161, 51617, 16171, 61718, 17181, 71819, 18192, 81920, 19202, 92021, 20212, 2122, 21222, 12223, 22232, 22324, 23242, 32425
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000


FORMULA

a(n) = Sum (A007376(n+k)*10^(4k): 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 !! (n1)
a193493_list = f a007376_list where
f xs'@(x:xs) = ((foldl (\u v > 10*u + v) 0) $ take 5 xs') : f xs


CROSSREFS

Cf. A136414, A193431, A193492.
Sequence in context: A251949 A178475 A104972 * A091341 A077298 A255964
Adjacent sequences: A193490 A193491 A193492 * A193494 A193495 A193496


KEYWORD

nonn,base


AUTHOR

Reinhard Zumkeller, Jul 28 2011


STATUS

approved



