A324578 Numbers n for which n*A276086(n) is a term of A055932.

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

Author

Antti Karttunen, Mar 09 2019

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to primorial base
• Index entries for sequences related to primorial numbers

Crossrefs

Cf. A002110, A055932, A276086, A324579 (a subsequence), A324580.

Programs

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));