|
%I #12 Mar 07 2015 16:03:55
%S 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,
%T 33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,
%U 56,57,58,59,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88
%N Numbers in base-60 representation that cannot be written with decimal digits.
%D 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.
%D 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.
%H Harvey P. Dale, <a href="/A102494/b102494.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Sexagesimal.html">Sexagesimal</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Sexagesimal">Sexagesimal</a>
%e 200 = 3*60^1 + 20*60^0 = '3K', therefore 200 is a term.
%t Select[Range[100],Max[IntegerDigits[#,60]]>9&] (* _Harvey P. Dale_, Dec 27 2012 *)
%o (Haskell)
%o import Data.List (unfoldr)
%o a102494 n = a102494_list !! (n-1)
%o a102494_list = filter (any (> 9) . unfoldr
%o (\x -> if x == 0 then Nothing else Just $ swap $ divMod x 60)) [0..]
%o -- _Reinhard Zumkeller_, Jun 27 2013
%Y Complement of A102493; A102488, A102490, A102492.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Jan 12 2005
|
