This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A283481 Positions of odd terms in A004001. 4

%I

%S 1,2,5,9,11,12,17,19,22,25,26,27,33,35,37,38,40,43,46,47,48,50,51,55,

%T 56,57,58,65,67,69,72,74,77,79,80,82,83,87,89,90,92,93,97,100,101,102,

%U 107,110,111,112,117,118,119,120,121,129,131,133,135,136,138,140,143,145,148,150,151,153,154,158,160,163,165,166,168,169

%N Positions of odd terms in A004001.

%H Antti Karttunen, <a href="/A283481/b283481.txt">Table of n, a(n) for n = 1..8121</a>

%F Other identities. For all n >= 1:

%F A283480(a(n)) = n.

%t a[n_] := a[n] = If[n <= 2, 1, a[a[n - 1]] + a[n - a[n - 1]]]; Select[Range@ 169, OddQ@ a[#] &] (* _Michael De Vlieger_, Mar 18 2017, after _Robert G. Wilson v_ at A004001 *)

%o (Scheme, with _Antti Karttunen_'s IntSeq-library)

%o (define A283481 (NONZERO-POS 1 1 A095901))

%Y Cf. A283482 (complement), A283480 (a left inverse).

%Y Positions of ones in A095901.

%Y Cf. A004001.

%K nonn

%O 1,2

%A _Antti Karttunen_, Mar 18 2017

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 23 19:07 EDT 2019. Contains 323528 sequences. (Running on oeis4.)