A324540 - OEIS

A324540

Numbers not in range of A324580.

1, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 91

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Positions of zeros in A324539.

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..19955

Index entries for sequences related to primorial base

Index entries for sequences related to primorial numbers

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

A324539(n) = sumdiv(n, d, (d==A276086(n/d)));

for(n=1, 100, if(0==A324539(n), print1(n, ", ")));

(PARI)

search_limit = 15000;

A324580(n) = n*A276086(n);

A324540list(search_up_to) = { my(v=vector(search_up_to), c=0, k); for(n=1, #v, k=A324580(n); if(k<=#v && !v[k], v[k] = n; c++)); my(u=vector(#v-c), j=0); for(n=1, #v, if(0==v[n], j++; u[j] = n)); (u); };

v324540 = A324540list(search_limit);

A324540(n) = v324540[n];

CROSSREFS

Cf. A324541 (complement).

Cf. A276086, A324539, A324580, A065091 (a subsequence).

Sequence in context: A055495 A072442 A063992 * A171520 A039233 A296095

Adjacent sequences: A324537 A324538 A324539 * A324541 A324542 A324543

KEYWORD

nonn

AUTHOR

Antti Karttunen, Mar 10 2019

STATUS

approved