A275717 Numbers n for which A003961(n) > A003961(n-1).

2, 3, 4, 6, 8, 12, 14, 15, 16, 18, 20, 24, 26, 27, 30, 32, 35, 36, 38, 39, 40, 42, 44, 45, 48, 50, 52, 54, 56, 60, 62, 63, 64, 66, 68, 70, 72, 74, 75, 78, 80, 81, 84, 86, 87, 88, 90, 92, 95, 96, 98, 100, 102, 104, 108, 110, 112, 114, 116, 117, 119, 120, 122, 123, 124, 125, 126, 128, 130, 132, 135, 138, 140, 143, 144

Offset

1,1

Comments

One more than the positions of ascents in permutation A048673.

Links

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

Mathematica

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

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A275717 (MATCHING-POS 1 2 (lambda (n) (> (A003961 n) (A003961 (- n 1))))))

Crossrefs

One more than A275721.

Cf. A003961, A048673.

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

Cf. A029744 (a subsequence, apart from its initial 1).

Cf. also A275719, A275720, A246281, A246282.

Sequence in context: A018556 A018387 A336503 * A029449 A028815 A014423

Adjacent sequences: A275714 A275715 A275716 * A275718 A275719 A275720

Keyword

nonn

Author

Antti Karttunen, Aug 07 2016

Status

approved