This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A285915 #21 May 12 2017 01:00:46 %S A285915 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 A285915 64,67,68,73,74,75,76,78,80,81,85,87,93,94,95,96,98,101,108,109,112, %U A285915 115,122,124,125,126,127,128,130,131,133,134,136,137,138,140,147 %N A285915 Integers n such that A112528(n) - A103274(n) = 1. %C A285915 In general, A112528(n) - A103274(n) = 0 or 1. %C A285915 Also, A000040(a(n)) = A063638(n). %t A285915 Select[Range@ 150, And[# != 1, PrimeOmega[Prime@ # - 2] == 2] &] (* _Michael De Vlieger_, May 01 2017 *) %o A285915 (PARI) is(n)=n!=1&&bigomega(prime(n)-2)==2 \\ _David A. Corneth_, Apr 29 2017 %Y A285915 Cf. A000040, A063638, A103274, A112528. %K A285915 nonn %O A285915 1,1 %A A285915 _Zak Seidov_, Apr 28 2017