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.

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

Offset: 0

Author

N. J. A. Sloane and Robert G. Wilson v, Nov 15 2013

Keywords

• nonn
• base
• easy

Comments

See A231924 for precise definition.

This is a permutation of the nonnegative integers - see the Comments in A228407 for the proof.

Crossrefs

Cf. A230892, A231921, A231923, A231927, A231929, A231931, A231933, A228407, A231924.

Programs

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]