Sylvester's sequence: Difference between revisions

==={{header|BASIC256}}===

{{works with|True BASIC}}

{{works with|Chipmunk Basic}}

{{trans|FreeBASIC}}

<lang qbasic>

PRINT "10 primeros términos de la sucesión de sylvester:"

PRINT

LET suma = 0

FOR i = 1 to 10

IF i = 1 then

LET sylvester = 2

ELSE

LET sylvester = sylvester*sylvester-sylvester+1

END IF

PRINT i; ": "; sylvester

LET suma = suma + 1 / sylvester

NEXT i

PRINT

PRINT "suma de sus recíprocos: "; suma

END

</lang>