A248556 Concatenate (3n-2,3n-1,3n).

123, 456, 789, 101112, 131415, 161718, 192021, 222324, 252627, 282930, 313233, 343536, 373839, 404142, 434445, 464748, 495051, 525354, 555657, 585960, 616263, 646566, 676869, 707172, 737475, 767778, 798081, 828384, 858687, 888990, 919293, 949596, 979899

Offset

1,1

Links

Table of n, a(n) for n=1..33.

Maple

conc3:= (a, b, c) -> c + 10^(1+ilog10(c))*(b+10^(1+ilog10(b))*a):
seq(conc3(3*k-2, 3*k-1, 3*k), k=1..100); # Robert Israel, Oct 23 2014

Mathematica

FromDigits[Flatten[IntegerDigits/@{#}]]&/@Partition[Range[100], 3] (* Vincenzo Librandi, Oct 21 2014 *)

Prog

(Magma) [Seqint(Intseq(n+1) cat Intseq(n) cat Intseq(n-1)): n in [2..100 by 3]]; // Vincenzo Librandi, Oct 21 2014
(PARI) a(n)=eval(Str(3*n-2, 3*n-1, 3*n)) \\ M. F. Hasler, Oct 22 2014

Crossrefs

Cf. A030655, A091331.

Sequence in context: A235133 A179612 A091331 * A031689 A181679 A193251

Adjacent sequences: A248553 A248554 A248555 * A248557 A248558 A248559

Keyword

nonn,base,easy

Author

Charles Duvall, Oct 08 2014

Extensions

More terms from Vincenzo Librandi, Oct 21 2014

Status

approved