A177048 Least k such that k^n starts with n in base 2.
1, 2, 3, 2, 13, 11, 13, 2, 3, 25, 5, 7, 15, 35, 35, 2, 57, 31, 13, 77, 37, 23, 7, 29, 15, 25, 3, 51, 27, 61, 5, 2, 43, 37, 57, 25, 17, 31, 13, 69, 75, 13, 49, 9, 13, 75, 99, 45, 103, 57, 37, 35, 23, 25, 23, 75, 23, 295, 23, 163, 21, 5, 23, 2, 3, 79, 23, 123, 23, 345, 33, 5, 15
Offset: 1
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..5000
Crossrefs
Cf. A177047.
Programs
-
Haskell
toBinary 0 = [] toBinary n = toBinary (n `div` 2) ++ [odd n] a = [1 + fromJust (findIndex (isPrefixOf (toBinary n)) [toBinary (k ^ n) | k <- [1..]]) | n <- [1..]]
Extensions
More terms from Seiichi Manyama, Dec 22 2019