A134613 Numbers such that the root mean cube of their prime factors is a nonprime integer (where the root mean cube of c and d is ((c^3+d^3)/2)^(1/3)).

1, 1512, 337365, 375360, 523809, 1177176, 1255254, 1380918, 1549431, 2277345, 2286144, 2816883, 3320713, 3340428, 3838185, 4378333, 6726969, 7043655, 8311212, 10281284, 10323390, 10666227, 10708544, 12333468, 14185724, 15883803, 21432000, 25760763, 27111825

Offset

1,2

Comments

The prime factors are taken with multiplicity.

Numbers included in A134611, but not in A134612.

For n > 1, also numbers included in A134614, but not in A134615; a(2) = 1512 is the minimal number with this property.

No prime number and no power (> 1) of a prime number can be a term.

Links

Hieronymus Fischer, Table of n, a(n) for n = 1..411

Example

a(1) = 1, since 1 has no prime factors, and so the cube mean is zero (by definition of empty sums).
a(2) = 1512, since 1512 = 2*2*2*3*3*3*7 and ((3*2^3+3*3^3+7^3)/7)^(1/3) = 64^(1/3) = 4.

Prog

(PARI) isok(n) = if (n==1, return(1)); sc = 0; nb = 0; f = factor(n); for (i=1, #f~, sc += f[i, 2]*f[i, 1]^3; nb += f[i, 2]; ); return (type(quot = sc/nb) == "t_INT" && ispower(quot, 3, &cr) && (! isprime(cr))); \\ Michel Marcus, Jul 15 2013; corrected Jun 13 2022

Crossrefs

Cf. A001597, A025475, A134333, A134344, A134376.

Cf. A134600, A134602, A134605, A134608, A134617, A134619, A134621.

Sequence in context: A034601 A022059 A134614 * A187294 A107523 A282253

Adjacent sequences: A134610 A134611 A134612 * A134614 A134615 A134616

Keyword

nonn

Author

Hieronymus Fischer, Nov 11 2007

Extensions

Extended, edited and added initial term a(1) = 1 by Hieronymus Fischer, May 30 2013

Status

approved