A351226 Numbers k for which A276086(k) < k, where A276086 is the primorial base exp-function.

6, 30, 31, 32, 36, 60, 210, 211, 212, 213, 214, 215, 216, 217, 218, 240, 241, 242, 420, 421, 422, 2310, 2311, 2312, 2313, 2314, 2315, 2316, 2317, 2318, 2319, 2320, 2321, 2322, 2323, 2324, 2325, 2328, 2340, 2341, 2342, 2343, 2344, 2345, 2346, 2347, 2348, 2352, 2370, 2371, 2372, 2520, 2521, 2522, 2523, 2524, 2526, 2527

Offset

1,1

Links

Table of n, a(n) for n=1..58.

Index entries for sequences related to primorial base

Mathematica

Select[Range[2528], Block[{i, m, n = #, p}, m = i = 1; While[n > 0, p = Prime[i]; m *= p^Mod[n, p]; n = Quotient[n, p]; i++]; m < #] &] (* Michael De Vlieger, Feb 05 2022 *)

Prog

(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
isA351226(n) = (A276086(n)<n);

Crossrefs

Cf. A002110 (subsequence from its third term 6 onward), A276086, A351227 (complement).

Positions of negative terms in A351225, positions of zeros in A351089.

Sequence in context: A078638 A068510 A147798 * A351228 A369958 A197880

Adjacent sequences: A351223 A351224 A351225 * A351227 A351228 A351229

Keyword

nonn,base

Author

Antti Karttunen, Feb 05 2022

Status

approved