OFFSET
1,1
COMMENTS
Like A006145 but using anti-divisors.
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
EXAMPLE
Anti-divisors of 7401 are 2, 6, 19, 41, 113, 131, 361, 779, 4934. The primes are 2, 19, 41, 113 and 131 whose sum is 306.
Anti-divisors of 7402 are 3, 4, 5, 7, 9, 15, 21, 35, 45, 47, 63, 105, 113, 131, 141, 235, 315, 329, 423, 705, 987, 1645, 2115, 2961, 4935. The primes are 3, 5, 7, 47, 113 and 131 whose sum is 306.
MAPLE
with(numtheory);
P:=proc(n)
local a, b, i, k;
b:=2;
for i from 4 to n do
a:=0;
for k from 2 to i-1 do
if abs((i mod k)- k/2) < 1 then if isprime(k) then a:=a+k; fi; fi;
od;
if a=b then print(i-1); fi;
b:=a;
od;
end:
P(200000);
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jul 27 2011
STATUS
approved