[go: up one dir, main page]

login
A324584
Numbers n that share a prime factor with A276086(n).
11
3, 9, 10, 15, 20, 21, 25, 27, 33, 35, 39, 40, 42, 45, 49, 50, 51, 55, 56, 57, 63, 69, 70, 75, 77, 80, 81, 84, 85, 87, 91, 93, 98, 99, 100, 105, 110, 111, 112, 115, 117, 119, 123, 126, 129, 130, 133, 135, 140, 141, 145, 147, 153, 154, 159, 160, 161, 165, 168, 170, 171, 175, 177, 182, 183, 189, 190, 195, 196, 200, 201, 203, 205
OFFSET
1,1
COMMENTS
Numbers n for which A324198(n) <> 1.
PROG
(PARI)
A276086(n) = { my(i=0, m=1, pr=1, nextpr); while((n>0), i=i+1; nextpr = prime(i)*pr; if((n%nextpr), m*=(prime(i)^((n%nextpr)/pr)); n-=(n%nextpr)); pr=nextpr); m; };
A324198(n) = gcd(n, A276086(n));
for(n=1, oo, if(1!=A324198(n), print1(n, ", ")));
CROSSREFS
Cf. A324583 (complement).
Sequence in context: A118515 A191339 A138923 * A325284 A049096 A272653
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 10 2019
STATUS
approved