login
A328118
Numbers k for which A276086(k) <= A002620(k), where A276086 is the primorial base exp-function and A002620(k) = floor(k^2/4).
4
6, 7, 8, 12, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 60, 61, 62, 63, 64, 65, 66, 67, 68, 72, 90, 91, 92, 93, 96, 120, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 234, 235, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
OFFSET
1,1
LINKS
PROG
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A002620(n) = ((n^2)>>2);
isA328118(n) = (A276086(n) <= A002620(n));
CROSSREFS
Cf. A002620, A276086, A328119 (complement).
Subsequences: A328110 (after its two initial terms), A351228, A370127.
Sequence in context: A037365 A083340 A118733 * A047275 A373385 A047590
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 08 2019
STATUS
approved