login
Unsafe primes minus 1.
0

%I #7 Dec 29 2024 21:20:43

%S 1,2,12,16,18,28,30,36,40,42,52,60,66,70,72,78,88,96,100,102,108,112,

%T 126,130,136,138,148,150,156,162,172,180,190,192,196,198,210,222,228,

%U 232,238,240,250,256,268,270,276,280,282,292,306,310,312,316,330,336

%N Unsafe primes minus 1.

%C Non-semiprimes k such that k+1 is a prime.

%F a(n) = A059456(n) - 1.

%F a(n) ~ n log n. - _Charles R Greathouse IV_, Dec 29 2024

%t Select[Prime[Range[70]]-1,PrimeOmega[#]!=2&] (* _Harvey P. Dale_, Jan 14 2015 *)

%o (PARI) is(n)=isprime(n+1) && !isprime(n\2) \\ _Charles R Greathouse IV_, Dec 29 2024

%Y Intersection of A006093 and A100959.

%K nonn

%O 1,2

%A _Juri-Stepan Gerasimov_, Apr 28 2010

%E Entries checked by _R. J. Mathar_, May 06 2010