login
A275717
Numbers n for which A003961(n) > A003961(n-1).
7
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
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.
Complement: A275718 (apart from 1 which is in neither sequence).
Cf. A029744 (a subsequence, apart from its initial 1).
Sequence in context: A018556 A018387 A336503 * A029449 A028815 A014423
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 07 2016
STATUS
approved