A020334 Numbers whose base-6 representation is the juxtaposition of two identical strings.
7, 14, 21, 28, 35, 222, 259, 296, 333, 370, 407, 444, 481, 518, 555, 592, 629, 666, 703, 740, 777, 814, 851, 888, 925, 962, 999, 1036, 1073, 1110, 1147, 1184, 1221, 1258, 1295, 7812, 8029, 8246, 8463, 8680, 8897, 9114, 9331, 9548, 9765, 9982, 10199, 10416
Offset: 1
Examples
296_10 = 1212_6. - _Jon E. Schoenfield_, Feb 11 2021
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
jtiQ[n_]:=Module[{idn6=IntegerDigits[n,6],len},len=Length[idn6];EvenQ[ len] && Take[idn6,len/2]==Take[idn6,(-len/2)]]; Select[ Range[ 11000], jtiQ] (* Harvey P. Dale, May 29 2016 *) a[n_] := n + n*6^Floor[Log[6, n] + 1]; Array[a, 50] (* Amiram Eldar, Apr 06 2021 *)
Formula
a(n) = n*6^floor(log_6(n)+1) + n. - Ilya Gutkovskiy, Jan 26 2018