OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
read("transforms") ;
A248555 := proc(n)
digcatL([3*n-2, 3*n, 3*n-1]) ;
end proc:
seq(A248555(n), n=1..70) ; # R. J. Mathar, Jan 22 2015
MATHEMATICA
FromDigits[Flatten[IntegerDigits/@{#-2, #, #-1}]]&/@(3*Range[40]) (* Harvey P. Dale, Jul 01 2021 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Charles Duvall, Oct 08 2014
STATUS
approved