login
Numbers in base-60 representation that can be written with decimal digits.
5

%I #13 Jul 06 2024 16:15:35

%S 0,1,2,3,4,5,6,7,8,9,60,61,62,63,64,65,66,67,68,69,120,121,122,123,

%T 124,125,126,127,128,129,180,181,182,183,184,185,186,187,188,189,240,

%U 241,242,243,244,245,246,247,248,249,300,301,302,303,304,305,306,307,308

%N Numbers in base-60 representation that can 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 Reinhard Zumkeller, <a href="/A102493/b102493.txt">Table of n, a(n) for n = 1..10000</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>

%t Table[Range[60n,60n+9],{n,0,6}]//Flatten (* _Harvey P. Dale_, Jul 06 2024 *)

%o (Haskell)

%o import Data.List (unfoldr)

%o a102493 n = a102493_list !! (n-1)

%o a102493_list = filter (all (<= 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 A102494; A102487, A102489, A102491.

%K nonn,base

%O 1,3

%A _Reinhard Zumkeller_, Jan 12 2005