OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
The first 6 primes which are coprime to 6 are 5,7,11,13,17,19. So a(6)=5+7+11+13+17+19 = 72.
MAPLE
P:= select(isprime, [2, seq(i, i=3..10^6, 2)]):
f:= proc(n) local i, count, t;
t:= 0: count:= 0:
for i from 1 do
if igcd(P[i], n) = 1 then
t:= t+P[i];
count:= count+1;
if count = n then return t fi
fi od end proc:
map(f, [$1..100]); # Robert Israel, Mar 01 2026
MATHEMATICA
f[n_] := Block[{c = n, k = 0, p, s = 0}, While[c > 0, k++; While[p = Prime[k]; GCD[p, n] > 1, k++ ]; c--; s += p; ]; s]; Table[f[n], {n, 50}] (* Ray Chandler, Dec 14 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 13 2006
EXTENSIONS
Extended by Ray Chandler, Dec 14 2006
STATUS
approved