|
|
A218862
|
|
The least number having n representations as p*q - p - q for primes p <= q.
|
|
3
|
|
|
2, 0, 3, 35, 71, 1151, 1079, 4199, 11879, 7559, 32759, 30239, 75599, 171359, 241919, 251999, 262079, 393119, 604799, 665279, 1572479, 1834559, 2827439, 2570399, 2358719, 7862399, 7814015, 5405399, 6683039, 18017999, 20180159, 8648639, 17992799, 17297279
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
The values of a(n) and (p,q) for n = 1 to 6:
0 is (2,2).
3 is (2,5), (3,3).
35 is (2,37), (3,19), (7,7).
71 is (2,73), (3,37), (5,19), (7,13).
1151 is (2,1153), (3,577), (7,193), (13,97), (17,73).
1079 is (3,541), (5,271), (7,181), (11,109), (19,61), (31,37).
|
|
MATHEMATICA
|
nn = 10000; ps = Prime[Range[PrimePi[nn + 1]]]; t = Table[0, {nn}]; Do[n = p*q - p - q; If[p <= q && 0 < n <= nn, t[[n]]++], {p, ps}, {q, ps}]; t = Join[{1}, t]; u = Union[t]; c = Complement[Range[Max[u]], u]; If[c == {}, mx = u[[-1]], mx = c[[-1]] - 1]; Table[Position[t, n, 1, 1][[1, 1]] - 1, {n, 0, mx}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|