A134651 - OEIS

A134651

Numbers which are the sum of two terms from A001043.

10, 13, 16, 17, 20, 23, 24, 26, 29, 30, 32, 35, 36, 38, 41, 42, 44, 47, 48, 50, 54, 57, 60, 64, 65, 66, 68, 70, 72, 73, 76, 78, 80, 82, 83, 84, 86, 88, 89, 90, 92, 94, 95, 96, 98, 102, 104, 105, 108, 110, 112, 114, 117, 118, 120, 124, 125, 126, 128, 130, 132, 133, 136, 138, 140

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

B. D. Swan, Table of n, a(n) for n=1,...,60000

EXAMPLE

Recall that A001043 begins with 5,8,12, ..

So 10 (5+5), 13 (5+8), 16 (8+8), 17 (5+12), 20 (8+12) are in the sequence.

PROG

(PARI) issum(i, vss) = {for (j = 1, #vss, if (vss[j] > i, break); for (k = 1, #vss, sv = vss[j] + vss[k]; if (sv == i, return (1)); if (sv > i, break); ); ); return (0); }

lista(nn) = {vec = vector(nn, i, i); vss = select(i->((precprime((i-1)/2) + nextprime(i/2) == i) && (i>2)), vec); for (i = 1, nn, if (issum(i, vss), print1(i, ", ")); ); } \\ Michel Marcus, Oct 14 2013

CROSSREFS

Cf. A001043, A134650.

Sequence in context: A247464 A219110 A226024 * A135548 A102502 A309304

Adjacent sequences: A134648 A134649 A134650 * A134652 A134653 A134654

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane, Jan 25 2008

STATUS

approved