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.

129, 81, 65, 56, 50, 46, 43, 41, 39, 38, 36, 35, 34, 33, 33, 32, 31, 31, 30, 30, 29, 29, 28, 28, 28, 27, 27, 27, 27, 26, 26, 26, 26, 25, 25, 25, 25, 25, 25, 24, 24, 24, 24, 24, 24, 24, 23, 23, 23, 23, 23, 23, 23, 23, 23, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22

Offset

2,1

Comments

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.

Links

Table of n, a(n) for n=2..67.

C64 Wiki, Floating point arithmetic

Markus Sigg, Screenshot of the program running on a PET 2001 emulated with MAME.

Wikipedia, Commodore BASIC

Prog

(BASIC)
10 FOR N=2 TO 66
20 A=1
30 I=1
40 A=A/N
50 IF A>0 THEN I=I+1:GOTO 40
60 PRINT I;
70 NEXT

Crossrefs

Cf. A336777, A336781.

Sequence in context: A034062 A241311 A252716 * A298720 A025332 A025324

Adjacent sequences: A337065 A337066 A337067 * A337069 A337070 A337071

Keyword

nonn,fini

Author

Markus Sigg, Aug 13 2020

Status

approved