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

5, 7, 9, 12, 13, 16, 17, 19, 20, 22, 24, 25, 30, 32, 37, 38, 41, 47, 48, 52, 54, 57, 62, 63, 64, 67, 68, 73, 74, 75, 76, 78, 80, 81, 85, 87, 93, 94, 95, 96, 98, 101, 108, 109, 112, 115, 122, 124, 125, 126, 127, 128, 130, 131, 133, 134, 136, 137, 138, 140, 147

Offset: 1

Author

Zak Seidov, Apr 28 2017

Keywords

• nonn

Comments

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

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

Crossrefs

Cf. A000040, A063638, A103274, A112528.

Programs

Mathematica

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

PARI

is(n)=n!=1&&bigomega(prime(n)-2)==2 \\ David A. Corneth, Apr 29 2017