A236341 a(n) = the position of n in A160855 or 0 if n is not in A160855.

1, 3, 2, 6, 7, 4, 13, 5, 14, 9, 8, 11, 12, 18, 25, 26, 16, 24, 27, 19, 28, 21, 29, 10, 23, 30, 39, 15, 36, 34, 55, 54, 32, 48, 56, 17, 35, 31, 38, 57, 58, 59, 75, 22, 43, 20, 45, 47, 49, 41, 50, 94, 52, 107, 109, 53, 40, 61, 103, 70, 66, 105, 60, 63, 37, 64

Offset

1,2

Comments

If A160855 is a permutation of the positive integers then a(n) > 0 and A160855(a(n)) = n and a(A160855(n)) = n.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Block[{nn = 66, a = {}}, Do[k = 1; While[Or[MemberQ[a, k], SequencePosition[IntegerDigits[Total@ a + k, 2], #] == {}], k++] &@ IntegerDigits[n, 2]; AppendTo[a, k], {n, 3 nn}]; Take[#, nn] &@ SortBy[MapIndexed[{First@ #2, #1} &, a], Last][[All, 1]]] (* Michael De Vlieger, Aug 09 2017 *)

Prog

(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a236341 = (+ 1) . fromJust . (`elemIndex` a160855_list)

Crossrefs

Cf. A160855.

Sequence in context: A182847 A182869 A335409 * A293835 A258145 A175930

Adjacent sequences: A236338 A236339 A236340 * A236342 A236343 A236344

Keyword

nonn,look

Author

Reinhard Zumkeller, Mar 13 2014

Extensions

Better definition from Michael De Vlieger, Aug 09 2017

Status

approved