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 A275721 #9 Aug 07 2016 22:27:36 %S A275721 1,2,3,5,7,11,13,14,15,17,19,23,25,26,29,31,34,35,37,38,39,41,43,44, %T A275721 47,49,51,53,55,59,61,62,63,65,67,69,71,73,74,77,79,80,83,85,86,87,89, %U A275721 91,94,95,97,99,101,103,107,109,111,113,115,116,118,119,121,122,123,124,125,127,129,131,134,137,139,142,143,145 %N A275721 Numbers n for which A003961(n+1) > A003961(n). %C A275721 Positions of the ascents in permutation A048673. %H A275721 Antti Karttunen, <a href="/A275721/b275721.txt">Table of n, a(n) for n = 1..16384</a> %t A275721 f[n_] := Times @@ Map[Prime[PrimePi@ First[#] + 1]^Last[#] &, FactorInteger@ n]; Select[Range@ 145, f@ # < f[# + 1] &] (* _Michael De Vlieger_, Aug 07 2016 *) %o A275721 (Scheme, with _Antti Karttunen_'s IntSeq-library) %o A275721 (define A275721 (MATCHING-POS 1 1 (lambda (n) (> (A003961 (+ 1 n)) (A003961 n))))) %Y A275721 One less than A275717. %Y A275721 Complement: A275722. %Y A275721 Cf. A003961, A048673, A275719. %K A275721 nonn %O A275721 1,2 %A A275721 _Antti Karttunen_, Aug 07 2016