|
%I #14 Dec 20 2021 13:17:21
%S 1111,2222,3333,4444,5555,6666,7777,8888,9999,10101010,11111111,
%T 12121212,13131313,14141414,15151515,16161616,17171717,18181818,
%U 19191919,20202020,21212121,22222222,23232323,24242424,25252525
%N Quadruplets: base 10 representation is the juxtaposition of four identical strings.
%C Doublets in which the index is also a doublet. - _Jamie Robert Creasey_, Jun 23 2021
%H Harvey P. Dale, <a href="/A074843/b074843.txt">Table of n, a(n) for n = 1..1000</a>
%F A020338(A020338(n)). - _Jamie Robert Creasey_, Jun 23 2021
%t Table[FromDigits[Flatten[IntegerDigits/@PadRight[{},4,n]]],{n,30}] (* _Harvey P. Dale_, Dec 20 2021 *)
%o (UBASIC) 10 cls 30 for I=1 to 100 40 A=str(I) 50 C=A+A+A+A 60 B=val(cutspc(C)) 80 print B 90 next 100 end
%o (PARI) a(n)=eval(Str(n,n,n,n)) \\ _Charles R Greathouse IV_, Jun 23 2021
%Y Cf. A020338.
%K easy,nonn,base
%O 1,1
%A _Felice Russo_, Sep 10 2002
|
