OFFSET
1,2
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..100
MATHEMATICA
Array[FromDigits@ Join[#, Reverse@ Most@ #] &@ Mod[Range[#], 10] &, 15] (* Michael De Vlieger, Jan 28 2020 *)
PROG
(PARI) a(n)={fromdigits(vector(2*n-1, i, if(i<=n, i, 2*n-i)%10))} \\ Andrew Howroyd, Jan 27 2020
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Henry Bottomley, Aug 12 2000
EXTENSIONS
Terms a(13) and beyond from Andrew Howroyd, Jan 27 2020
STATUS
approved