47 lines
756 B
Plaintext
47 lines
756 B
Plaintext
//
|
|
// Tau Numbers
|
|
//
|
|
// FutureBasic 7.0.34, August 2025 R.W
|
|
//
|
|
//-------------------------------------
|
|
//
|
|
// Given an integer, returns the
|
|
// Tau positive integer
|
|
local fn Tau( n as Int) as Int
|
|
int x, result
|
|
if n < 3
|
|
result = n
|
|
else
|
|
result = 2
|
|
for x = 2 to fix((n + 1) / 2)
|
|
if n % x == 0 then result++
|
|
next x
|
|
end if
|
|
end fn = result
|
|
|
|
// Returns True if n is a Tau number
|
|
local fn isTau(n as Int) as boolean
|
|
boolean result = _False
|
|
if n % fn Tau(n) == 0 then result = _True
|
|
end fn = result
|
|
|
|
window 1,@"Tau numbers"
|
|
|
|
print
|
|
print " First 100 Tau numbers:"
|
|
print
|
|
|
|
int x, c, res
|
|
c = 1: x = 1
|
|
while c < 100
|
|
if fn isTau(x)
|
|
print using "######";x;
|
|
if (c % 9 == 0) then print
|
|
c++
|
|
end if
|
|
x++
|
|
wend
|
|
|
|
handleEvents
|
|
//
|