login
A383297
Numbers k for which A276086(A006530(k-1)) divides A276086(k), where A006530 gives the largest prime factor of k, and A276086 is the primorial base exp-function.
2
3, 5, 9, 11, 15, 17, 23, 27, 29, 33, 41, 43, 53, 57, 59, 63, 65, 71, 75, 79, 83, 85, 87, 89, 99, 101, 105, 113, 115, 119, 123, 125, 127, 129, 135, 137, 141, 143, 147, 149, 161, 169, 173, 179, 187, 195, 197, 203, 207, 209, 221, 225, 229, 235, 239, 249, 251, 253, 257, 259, 261, 267, 281, 287, 293, 295, 297, 311, 313
OFFSET
1,1
PROG
(PARI)
A006530(n) = if(1==n, n, my(f=factor(n)); f[#f~, 1]);
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
isA383297(n) = ((n>1) && !(A276086(n)%A276086(A006530(n-1))));
CROSSREFS
Cf. A006530, A276086, A383296 (subsequence).
Sequence in context: A268174 A166104 A164121 * A333171 A078651 A268732
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 15 2025
STATUS
approved