|
%I #16 Sep 08 2022 08:45:07
%S 111,222,333,444,555,666,777,888,999,101010,111111,121212,131313,
%T 141414,151515,161616,171717,181818,191919,202020,212121,222222,
%U 232323,242424,252525,262626,272727,282828,292929,303030,313131,323232,333333
%N Triplets: base 10 representation is the juxtaposition of three identical strings.
%t Table[FromDigits[Flatten[IntegerDigits/@PadRight[{},3,n]]],{n,40}] (* _Harvey P. Dale_, Aug 10 2019 *)
%o (UBASIC)
%o 10 cls
%o 30 for I=1 to 100
%o 40 A=str(I)
%o 50 C=A+A+A
%o 60 B=val(cutspc(C))
%o 80 print B
%o 90 next
%o 100 end
%o (Magma) [Seqint(Intseq(n) cat Intseq(n) cat Intseq(n)): n in [1..46]]; // _Vincenzo Librandi_, Feb 21 2014
%Y Cf. A020338.
%K easy,nonn,base
%O 1,1
%A _Felice Russo_, Sep 10 2002
|
