|
|
A231925
|
|
Terms of A231924 written in base 10: the binary expansions of a(n) and a(n+1) taken together can be rearranged to form a palindrome.
|
|
7
|
|
|
0, 6, 1, 5, 25, 7, 2, 10, 26, 12, 3, 8, 16, 28, 15, 30, 18, 4, 9, 21, 29, 20, 34, 14, 22, 32, 11, 27, 35, 51, 55, 125, 31, 24, 33, 13, 17, 36, 50, 56, 62, 68, 74, 88, 92, 114, 122, 126, 37, 43, 49, 57, 61, 83, 91, 109, 121, 127, 38, 42, 58, 66, 82, 86, 128, 40, 76, 80
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
See A231924 for precise definition.
This is a permutation of the nonnegative integers - see the Comments in A228407 for the proof.
|
|
LINKS
|
|
|
MATHEMATICA
|
a[0] = 0; a[n_] := a[n] = Block[{k = 1, idm = IntegerDigits[ a[n - 1], 5], t = a@# & /@ Range[n - 1]}, Label[ start]; While[ MemberQ[t, k], k++]; While[ Select[ Permutations[ Join[ idm, IntegerDigits[k, 5]]], #[[1]] != 0 && # == Reverse@# &] == {}, k++; Goto[ start]]; k]; s = Array[a, 60, 0]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|