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
Examples
1087 is in the sequence because 1+0+8+7=16 and 2*16+3=35 is not prime.
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ p: p in PrimesUpTo(1500) | not IsPrime(q) where q is 3+2*(&+Intseq(p))]; // Bruno Berselli, Jul 15 2011
-
Mathematica
Select[Prime[Range[250]],!PrimeQ[2*Total[IntegerDigits[#]]+3]&] (* Harvey P. Dale, Jul 15 2014 *)
Extensions
Keyword:base added by R. J. Mathar, Sep 21 2009