Robert Israel, <a href="/A190300/b190300_1.txt">Table of n, a(n) for n = 1..10000</a> (first 208 terms from Robert G. Wilson v)
Robert Israel, <a href="/A190300/b190300_1.txt">Table of n, a(n) for n = 1..10000</a> (first 208 terms from Robert G. Wilson v)
proposed
approved
editing
proposed
filter:= proc(n)
local b, x, t0;
for b from 2 while b^3 < n do
x:= n; t0:= n mod b;
while x > 0 do
if x mod b <> t0 then break fi;
x:= (x - t0)/b;
od;
if x = 0 then return false fi;
od;
true
end proc:
select(filter, [4, 6, 9, 25, 49, seq(ithprime(i)^2, i=26..100)]); # Robert Israel, Apr 17 2019
proposed
editing
editing
proposed
Robert G. Wilson v, Israel, <a href="/A190300/b190300_1.txt">Table of n, a(n) for n = 1..10000</a> (first 208</a> terms from Robert G. Wilson v)
filter:= proc(n)
local b, x, t0;
for b from 2 while b^3 < n do
x:= n; t0:= n mod b;
while x > 0 do
if x mod b <> t0 then break fi;
x:= (x - t0)/b;
od;
if x = 0 then return false fi;
od;
true
end proc:
select(filter, [4, 6, seq(ithprime(i)^2, i=2..100)]); # Robert Israel, Apr 17 2019
proposed
editing
editing
proposed
Composite numbers that are not Brazilian are exactly Also semiprimes that are not Brazilian. - Bernard Schott, Apr 11 2019
proposed
editing
editing
proposed
Composite Numbers numbers that are not Brazilian are exactly semiprimes that are not Brazilian. - Bernard Schott, Apr 11 2019
proposed
editing