12 lines
263 B
Text
12 lines
263 B
Text
taup(n) := integerp(n/cardinality(divisors(n)))$
|
|
|
|
block(
|
|
count: 0, n: 1, while count < 100 do(
|
|
if taup(n) then block(
|
|
sprint(n),
|
|
count: count+1,
|
|
if mod(count, 10)=0 then newline()
|
|
),
|
|
n: n+1
|
|
)
|
|
)$
|