login
Integers n such that A112528(n) - A103274(n) = 1.
0

%I #21 May 12 2017 01:00:46

%S 5,7,9,12,13,16,17,19,20,22,24,25,30,32,37,38,41,47,48,52,54,57,62,63,

%T 64,67,68,73,74,75,76,78,80,81,85,87,93,94,95,96,98,101,108,109,112,

%U 115,122,124,125,126,127,128,130,131,133,134,136,137,138,140,147

%N Integers n such that A112528(n) - A103274(n) = 1.

%C In general, A112528(n) - A103274(n) = 0 or 1.

%C Also, A000040(a(n)) = A063638(n).

%t Select[Range@ 150, And[# != 1, PrimeOmega[Prime@ # - 2] == 2] &] (* _Michael De Vlieger_, May 01 2017 *)

%o (PARI) is(n)=n!=1&&bigomega(prime(n)-2)==2 \\ _David A. Corneth_, Apr 29 2017

%Y Cf. A000040, A063638, A103274, A112528.

%K nonn

%O 1,1

%A _Zak Seidov_, Apr 28 2017