login
A324578
Numbers n for which n*A276086(n) is a term of A055932.
3
1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 27, 28, 30, 35, 36, 40, 42, 44, 45, 48, 50, 54, 56, 60, 66, 70, 72, 75, 77, 80, 81, 84, 88, 90, 96, 98, 99, 100, 105, 108, 110, 112, 120, 125, 126, 128, 132, 135, 140, 143, 144, 147, 150, 160, 162, 165, 168, 176, 180, 189, 192, 196, 198, 200, 210, 224, 231, 240, 245, 250, 252, 256
OFFSET
1,2
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; };
A324580(n) = n*A276086(n);
isA055932(n) = if(1==n, 1, my(f=factor(n)); (primepi(f[#f~, 1]) == #f~));
isA324578(n) = isA055932(A324580(n));
CROSSREFS
Cf. A002110, A055932, A276086, A324579 (a subsequence), A324580.
Sequence in context: A225733 A225732 A295585 * A373847 A193988 A124455
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 09 2019
STATUS
approved