OFFSET
1,1
COMMENTS
Primes p such that p+2 is in A104211. [R. J. Mathar, Jan 15 2009]
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local s;
if not isprime(n) then return false fi;
s:= convert(convert(n+2, base, 10), `+`);
s >= 4 and not isprime(s)
end proc:
select(filter, [$2..1000]); # Robert Israel, Mar 13 2019
MATHEMATICA
Select[Prime[Range[100]], CompositeQ[Total[IntegerDigits[#+2]]]&] (* Harvey P. Dale, Apr 28 2022 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, Jan 14 2009
EXTENSIONS
Extended by R. J. Mathar, Jan 15 2009
STATUS
approved