login
A278076
Sums of finite subsequences of A280708.
1
0, 1, 8, 9, 24, 25, 32, 33, 48, 49, 56, 57, 86, 87, 94, 95, 110, 111, 118, 119, 134, 135, 142, 143, 1260, 1261, 1268, 1269, 1284, 1285, 1292, 1293, 1308, 1309, 1316, 1317, 1346, 1347, 1354, 1355, 1370, 1371, 1378, 1379, 1394, 1395, 1402, 1403, 1890, 1891, 1898
OFFSET
1,3
LINKS
MAPLE
S:= {0}: # adapted from A280708
x:= 1:
while x < 10^4 do
if ormap(s -> isprime(s+x), S)
then x:= x+1
else S:= S union map(`+`, S, x)
fi
od:
sort(convert(S, list));
MATHEMATICA
S = {0}; x = 1;
While[x < 2000, If[AnyTrue[S, PrimeQ[#+x]&], x++, S = S ~Union~ (S+x)]];
S (* Jean-François Alcover, Apr 29 2019 *)
PROG
(SageMath)
def A278076(bound):
x, y, S = 1, 1, {0}
while x < bound:
if any(is_prime(s+x) for s in S):
x += 1
else:
y = x
S = S.union(s+x for s in S)
return [s for s in sorted(S) if s <= y]
print(A278076(10^5))
CROSSREFS
Cf. A280708.
Sequence in context: A074344 A256932 A304600 * A081351 A032462 A077599
KEYWORD
nonn
AUTHOR
Robert Israel and Peter Luschny, Jan 20 2017
STATUS
approved