A165440 Primes p such that 3+2*(sum of digits of p) is not a prime.

3, 29, 47, 79, 83, 97, 137, 173, 191, 227, 263, 277, 281, 317, 349, 353, 367, 439, 443, 457, 461, 547, 599, 619, 641, 673, 691, 709, 727, 797, 821, 853, 887, 907, 911, 977, 1019, 1069, 1087, 1091, 1109, 1163, 1181, 1217, 1249, 1307, 1361, 1429, 1433, 1447

Offset

1,1

Links

Bruno Berselli, Table of n, a(n) for n = 1..1000

Example

1087 is in the sequence because 1+0+8+7=16 and 2*16+3=35 is not prime.

Mathematica

Select[Prime[Range[250]], !PrimeQ[2*Total[IntegerDigits[#]]+3]&] (* Harvey P. Dale, Jul 15 2014 *)

Prog

(Magma) [ p: p in PrimesUpTo(1500) | not IsPrime(q) where q is 3+2*(&+Intseq(p))];  // Bruno Berselli, Jul 15 2011

Crossrefs

Cf. A165439, A007605.

Sequence in context: A106979 A367102 A087209 * A072306 A303137 A364076

Adjacent sequences: A165437 A165438 A165439 * A165441 A165442 A165443

Keyword

nonn,base

Author

Vincenzo Librandi, Sep 19 2009

Extensions

Keyword:base added by R. J. Mathar, Sep 21 2009

Status

approved