%I #5 Jan 14 2015 18:22:01

%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.

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

%K nonn

%O 1,2

%A _Juri-Stepan Gerasimov_, Apr 28 2010

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