1,1

One more than the positions of descents in permutation A048673.

Antti Karttunen, Table of n, a(n) for n = 1..10000

f[n_] := Times @@ Map[Prime[PrimePi@ First[#] + 1]^Last[#] &, FactorInteger@ n]; Select[Range@ 155, f[# - 1] > f@ # &] (* Michael De Vlieger, Aug 07 2016 *)

(Scheme, with Antti Karttunen's IntSeq-library)

(define A275718 (MATCHING-POS 1 2 (lambda (n) (< (A003961 n) (A003961 (- n 1))))))

One more than A275722.

Complement: A275717 (apart from 1 which is in neither sequence).

Cf. A003961, A048673.

Cf. also A275719, A275720, A246281, A246282.

Sequence in context: A116451 A126949 A079696 * A129270 A153031 A334303

Adjacent sequences: A275715 A275716 A275717 * A275719 A275720 A275721

nonn

Antti Karttunen, Aug 07 2016

approved