login
A024621
Positions of nonprimes among the powers of primes (A000961).
1
1, 4, 7, 8, 11, 15, 16, 19, 24, 28, 33, 42, 43, 45, 54, 69, 71, 79, 87, 92, 118, 121, 137, 153, 171, 188, 199, 245, 248, 293, 314, 341, 360, 361, 364, 393, 446, 483, 526, 559, 605, 651, 699, 719, 750, 857, 894, 930, 935, 1050, 1079, 1215, 1305, 1348, 1436, 1479, 1514
OFFSET
1,2
PROG
(PARI) lista(nn) = {vec = vector(nn, i, i); powpr = select((i->((omega(i)==1) || (i==1))), vec); for (i = 1, #powpr, if (! isprime(powpr[i]), print1(i, ", ")); ); } \\ Michel Marcus, Oct 02 2013
CROSSREFS
Complement of A024620.
Sequence in context: A356088 A137362 A190765 * A375572 A296029 A000606
KEYWORD
nonn
STATUS
approved