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
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
f[n_] := Times @@ Map[Prime[PrimePi@ First[#] + 1]^Last[#] &, FactorInteger@ n]; Select[Range@ 145, f[# - 1] < f@ # &] (* Michael De Vlieger, Aug 07 2016 *)
Comments