# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a337068 Showing 1-1 of 1 %I A337068 #16 Aug 16 2020 14:02:22 %S A337068 129,81,65,56,50,46,43,41,39,38,36,35,34,33,33,32,31,31,30,30,29,29, %T A337068 28,28,28,27,27,27,27,26,26,26,26,25,25,25,25,25,25,24,24,24,24,24,24, %U A337068 24,23,23,23,23,23,23,23,23,23,22,22,22,22,22,22,22,22,22,22,22 %N A337068 a(n) is the least number of repetitions such that the result of the repeated execution of the division f <- f/n started at f=1 produces 0, when the division is performed using Commodore BASIC. %C A337068 A floating point number in Commodore BASIC has five bytes: one bit for the sign, 31 bits for the mantissa, eight bits for the exponent. %H A337068 C64 Wiki, Floating point arithmetic %H A337068 Markus Sigg, Screenshot of the program running on a PET 2001 emulated with MAME. %H A337068 Wikipedia, Commodore BASIC %o A337068 (BASIC) %o A337068 10 FOR N=2 TO 66 %o A337068 20 A=1 %o A337068 30 I=1 %o A337068 40 A=A/N %o A337068 50 IF A>0 THEN I=I+1:GOTO 40 %o A337068 60 PRINT I; %o A337068 70 NEXT %Y A337068 Cf. A336777, A336781. %K A337068 nonn,fini %O A337068 2,1 %A A337068 _Markus Sigg_, Aug 13 2020 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE