|
|
|
|
50, 75, 100, 125, 150, 175, 190, 200, 222, 225, 238, 242, 246, 250, 275, 285, 300, 325, 333, 338, 350, 357, 363, 369, 374, 375, 380, 400, 425, 438, 442, 444, 450, 475, 476, 484, 492, 494, 500, 507, 525, 550, 555, 561, 570, 575, 578, 595, 600, 605, 615, 625
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
|
|
PROG
|
a321516(n) = my(d=divisors(n), i=0); for(k=2, #d-1, if(!ispseudoprime(d[k]), i++)); i
is(n) = a294902(n)!=a321516(n)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|