|
|
A020334
|
|
Numbers whose base-6 representation is the juxtaposition of two identical strings.
|
|
7
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|