A248555 a(n) is the concatenation of 3n-2, 3n and 3n-1.
132, 465, 798, 101211, 131514, 161817, 192120, 222423, 252726, 283029, 313332, 343635, 373938, 404241, 434544, 464847, 495150, 525453, 555756, 586059, 616362, 646665, 676968, 707271, 737574, 767877, 798180, 828483, 858786, 889089, 919392
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *)