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 A275722 #10 Aug 08 2016 00:50:59 %S A275722 4,6,8,9,10,12,16,18,20,21,22,24,27,28,30,32,33,36,40,42,45,46,48,50, %T A275722 52,54,56,57,58,60,64,66,68,70,72,75,76,78,81,82,84,88,90,92,93,96,98, %U A275722 100,102,104,105,106,108,110,112,114,117,120,126,128,130,132,133,135,136,138,140,141,144,147,148,150,152,153,154 %N A275722 Numbers n for which A003961(n+1) < A003961(n). %C A275722 Positions of the descents in permutation A048673. %H A275722 Antti Karttunen, <a href="/A275722/b275722.txt">Table of n, a(n) for n = 1..16384</a> %t A275722 f[n_] := Times @@ Map[Prime[PrimePi@ First[#] + 1]^Last[#] &, FactorInteger@ n]; Select[Range@ 154, f@ # > f[# + 1] &] (* _Michael De Vlieger_, Aug 07 2016 *) %o A275722 (Scheme, with _Antti Karttunen_'s IntSeq-library) %o A275722 (define A275722 (MATCHING-POS 1 1 (lambda (n) (< (A003961 (+ 1 n)) (A003961 n))))) %Y A275722 One less than A275718. %Y A275722 Complement: A275721. %Y A275722 Cf. A003961, A048673, A275719. %K A275722 nonn %O A275722 1,1 %A A275722 _Antti Karttunen_, Aug 07 2016