# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a181383
Showing 1-1 of 1

%I A181383 #17 Sep 10 2024 15:40:01
%S A181383 1,3,9,25,67,151,349,805,1831,4069,9063,19767,42975,92829,199123,
%T A181383 425229,904225,1915381,4044235,8513505,17872759,37432615,78225409,
%U A181383 163146639,339638307,705882493,1464816541,3035420871,6281814787,12984437515,26808298093,55291335127
%N A181383 The (2^n)-th lucky number.
%H A181383 Dana Jacobsen, <a href="/A181383/b181383.txt">Table of n, a(n) for n = 0..43</a>
%F A181383 a(n) = A000959(2^n) = A000959(A000079(n)).
%t A181383 t = 2 Range@9000000 - 1; f[n_] := Block[{k = t[[n]]}, t = Delete[t, Table[{k}, {k, k, Length@t, k}]]]; Do[f@n, {n, 2, 100000}]; Table[ t[[2^n]], {n, 0, 20}]
%o A181383 (Perl) use ntheory ":all"; say "$_ ",nth_lucky(1 << $_) for 0..25; # _Dana Jacobsen_, Dec 21 2018
%Y A181383 Cf. A000079, A000959, A181382.
%K A181383 hard,nonn
%O A181383 0,2
%A A181383 _Robert G. Wilson v_, Oct 16 2010
%E A181383 a(21)-a(25) from _Donovan Johnson_, Oct 16 2010
%E A181383 a(26)-a(31) from _Dana Jacobsen_, Dec 21 2018

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE