A394892 - OEIS

A394892

Numbers k such that A143293(k) has a factor of the form p^p, where A143293 is the partial sums of the primorial numbers.

6, 13, 17, 33, 40, 47, 60, 64, 70, 72, 75, 93, 105, 109, 112, 121, 127, 130, 145, 170, 197, 201, 234, 245, 249, 266, 279, 287, 295, 300, 302, 319, 322, 344, 346, 384, 386, 389, 394, 397, 406, 410, 433, 437, 444, 461, 473, 477, 483, 511, 517, 524, 526, 528, 545, 553, 559, 574, 576, 594, 602, 609, 612, 649, 657, 662

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

OFFSET

1,1

COMMENTS

Numbers k such that A143293(k) is in A100716.

LINKS

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

PROG

(PARI)

A143293(n) = { if(n==0, return(1)); my(P=1, s=1); forprime(p=2, prime(n), s+=P*=p); s; };

A359550(n) = { my(pp); forprime(p=2, , pp = p^p; if(!(n%pp), return(0)); if(pp > n, return(1))); };

is_A394892(k) = !A359550(A143293(k));