cp's OEIS Frontend

A246347 Record values in A135141.

%I A246347 #20 Sep 27 2015 10:33:04
%S A246347 1,2,4,8,9,17,19,35,39,71,79,143,159,287,319,575,639,1151,1279,2303,
%T A246347 2559,4607,5119,9215,10239,18431,20479,36863,40959,73727,81919,147455,
%U A246347 163839,294911,327679,589823,655359,1179647,1310719,2359295,2621439,4718591,5242879,9437183,10485759
%N A246347 Record values in A135141.
%C A246347 In binary, the terms of the sequence seem to follow a simple pattern:
%C A246347           1 = a(1)
%C A246347          10 = a(2)
%C A246347         100 = a(3)
%C A246347        1000 = a(4)
%C A246347        1001 = a(5)
%C A246347       10001 = a(6)
%C A246347       10011 = a(7)
%C A246347      100011 = a(8)
%C A246347      100111 = a(9)
%C A246347     1000111 = a(10)
%C A246347     1001111 = a(11)
%C A246347    10001111 = a(12)
%C A246347    10011111 = a(13)
%C A246347   100011111 = a(14)
%C A246347   100111111 = a(15)
%C A246347   ...
%C A246347 thus the sequence seems to consist of, after 1 and 2, an interleaving of sequence A153894: 4, 9, 19, 39, 79, 159, 319, ... with the sequence A052996 from its third term onward: 8, 17, 35, 71, 143, ...
%H A246347 Antti Karttunen, <a href="/A246347/b246347.txt">Table of n, a(n) for n = 1..112</a>
%F A246347 a(n) = A135141(A246346(n)).
%t A246347 Union[FromDigits[#,2]&/@Flatten[Table[{PadRight[{1,0,0},n,1],PadRight[ {1,0,0,0},n,1]},{n,30}],1]] (* _Harvey P. Dale_, May 03 2015 *)
%o A246347 (PARI) \\ See code in A246348.
%o A246347 (Scheme) (define (A246347 n) (A135141 (A246346 n)))
%Y A246347 A246346 gives the corresponding positions in A135141.
%Y A246347 Cf. A052996, A153894, A246348, A246360.
%K A246347 nonn
%O A246347 1,2
%A A246347 _Antti Karttunen_, Aug 27 2014 after _Robert G. Wilson v_'s note in A135141