A102494 Numbers in base-60 representation that cannot be written with decimal digits.
10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88
Offset: 1
Examples
200 = 3*60^1 + 20*60^0 = '3K', therefore 200 is a term.
References
- Mohammad K. Azarian, Meftah al-hesab: A Summary, MJMS, Vol. 12, No. 2, Spring 2000, pp. 75-95. Mathematical Reviews, MR 1 764 526. Zentralblatt MATH, Zbl 1036.01002.
- Mohammad K. Azarian, A Summary of Mathematical Works of Ghiyath ud-din Jamshid Kashani, Journal of Recreational Mathematics, Vol. 29(1), pp. 32-42, 1998.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, Sexagesimal
- Wikipedia, Sexagesimal
Programs
-
Haskell
import Data.List (unfoldr) a102494 n = a102494_list !! (n-1) a102494_list = filter (any (> 9) . unfoldr (\x -> if x == 0 then Nothing else Just $ swap $ divMod x 60)) [0..] -- Reinhard Zumkeller, Jun 27 2013
-
Mathematica
Select[Range[100],Max[IntegerDigits[#,60]]>9&] (* Harvey P. Dale, Dec 27 2012 *)