OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Module[{nn=50, d}, d=Flatten[IntegerDigits/@Range[nn]]; FromDigits/@ Partition[ d, 3, 1]] (* Harvey P. Dale, Nov 16 2021 *)
PROG
(Haskell)
a193431 n = a193431_list !! (n-1)
a193431_list = f a007376_list where
f (x:xs'@(x':x'':xs)) = 10*(10*x + x') + x'' : f xs'
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jul 28 2011
STATUS
approved