|
|
A165785
|
|
Base 10 representation of A240602.
|
|
3
|
|
|
0, 1, 3, 5, 7, 15, 27, 31, 45, 63, 85, 93, 119, 127, 255, 495, 511, 891, 1023, 1755, 1787, 2015, 2047, 2925, 4095, 5805, 5869, 8127, 8191, 10965, 11997, 15351, 16383, 21845, 21973, 23901, 24029, 30583, 30711, 32639, 32767, 65535, 130815, 131071, 253935
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Each term is a palindrome when written in base 2.
This entry is the result of merging two sequences. The old definition (which did not have the initial zero) was: "a(1)=1. For n >= 2, each a(n) = the decimal equivalent of either a(k)Ua(k) or a(k)U0Ua(k) or a(k)U1Ua(k), where U denotes concatenation of the binary representations of the arguments, and where k is some positive integer < n. The numbers are arranged in numerical order."
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[2^14], And[PalindromeQ@ Take[#, Floor[Length[#]/2]], PalindromeQ[#]] &@ IntegerDigits[#, 2] &] (* Michael De Vlieger, Nov 08 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|