cp's OEIS Frontend

A053092 2^A053087 kara n.

%I A053092 #7 Jan 27 2014 08:33:00
%S A053092 1,1,3,1,7,3,5,1,15,7,3,11,5,19,9,1,31,15,7,13,25,3,23,11,21,5,19,37,
%T A053092 9,35,17,1,63,31,15,29,7,27,53,13,25,49,3,47,23,45,11,43,21,41
%N A053092 2^A053087 kara n.
%H A053092 Reinhard Zumkeller, <a href="/A053092/b053092.txt">Table of n, a(n) for n = 1..1000</a>
%o A053092 (Haskell)
%o A053092 a053092 n = f 1 where
%o A053092    f x = case x `kara` n of
%o A053092               Nothing -> f $ 2 * x
%o A053092               Just y  -> y
%o A053092    kara a b = if null ks then Nothing else Just $ head ks
%o A053092               where ks = [c | c <- [1..a], a <= c * b, a > c * (b - 1)]
%o A053092 -- _Reinhard Zumkeller_, Mar 30 2013
%K A053092 nonn,look
%O A053092 1,3
%A A053092 Robert Lozyniak (11(AT)onna.com), Feb 27 2000