login
Even integers concatenated with themselves.
3

%I #25 Sep 08 2022 08:46:10

%S 22,44,66,88,1010,1212,1414,1616,1818,2020,2222,2424,2626,2828,3030,

%T 3232,3434,3636,3838,4040,4242,4444,4646,4848,5050,5252,5454,5656,

%U 5858,6060,6262,6464,6666,6868,7070,7272,7474,7676,7878,8080,8282,8484,8686,8888,9090,9292,9494,9696,9898,100100

%N Even integers concatenated with themselves.

%C Bisection of A020338.

%H Harvey P. Dale, <a href="/A248422/b248422.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = 2*n*10^ceiling(log_10(2*n)) + 2*n. - _Tom Edgar_, Oct 21 2014

%t FromDigits[Flatten[IntegerDigits/@#]]&/@Partition[With[{c=2*Range[ 50]}, Riffle[c,c]],2] (* or *) Table[n*10^IntegerLength[n]+n,{n,2,100,2}] (* _Harvey P. Dale_, Jun 11 2019 *)

%o (PARI) a(n) = eval(concat(Str(2*n), Str(2*n))); \\ _Michel Marcus_, Oct 06 2014

%o (Magma) [Seqint(Intseq(n) cat Intseq(n)): n in [2..100 by 2]]; // _Vincenzo Librandi_, Oct 21 2014

%Y Cf. A020338.

%K nonn,base

%O 1,1

%A _Lev Krasnovsky_, Oct 06 2014