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

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

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

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