A268328 Integers of the form (prime(m) + prime(m+1))/10 for some m.

3, 6, 9, 10, 12, 21, 24, 30, 32, 33, 34, 36, 39, 41, 45, 48, 52, 54, 60, 63, 74, 81, 84, 93, 99, 103, 112, 114, 118, 120, 122, 123, 125, 129, 130, 132, 135, 136, 141, 146, 153, 156, 162, 165, 171, 174, 177, 183, 190, 192, 196

Offset

1,1

Comments

Corresponding m's are: 6, 10, 14, 15, 17, 27, 30, 35, 37.

Of interest are sequences with values of k other than k = 10.

Apparently k may be of arbitrary value.

Smallest integers of the form (prime(m) + prime(m+1)/k for k = 1..20 are: 5, 4, 4, 2, 6, 2, 6, 1, 2, 3, 18, 1, 4, 3, 2, 7, 4, 1, 8, 3.

Links

Table of n, a(n) for n=1..51.

Example

a(1) = 3: m = 6 and (prime(6) + prime(6))/10 = (13+17)/10 = 3,
a(2) = 6: m = 10 and (prime(10) + prime(11))/10 = (29+31)/10 = 6.

Mathematica

Select[Table[(Prime[m] + Prime[m + 1])/10, {m, 250}], IntegerQ] (* Alonso del Arte, Feb 03 2016 *)

Prog

(PARI) lista(nn) = {for(n=1, nn, if((prime(n) + prime(n+1)) % 10 == 0, print1((prime(n) + prime(n+1)) / 10, ", "))); } \\ Altug Alkan, Feb 04 2016

Crossrefs

Cf. A001043 (superset).

Sequence in context: A061904 A206284 A363950 * A247575 A338626 A289130

Adjacent sequences: A268325 A268326 A268327 * A268329 A268330 A268331

Keyword

nonn

Author

Zak Seidov, Feb 01 2016

Status

approved