1,1

It would appear that about two-thirds of a primes have 2 as a cubic residue. A097142/A006880.

Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics..

f[p_] := Block[{k = 2}, While[k < p && Mod[k^3, p] != 2, k++ ]; If[k == p, 0, 1]]; c = 1; k = 2; Do[ While[ p = Prime[k]; p < 10^n, If[ f[p] == 1, c++ ]; k++ ]; Print[c], {n, 5}]

Cf. A040028, A006880.

Sequence in context: A039751 A141003 A002404 this_sequence A005419 A124537 A074523

Adjacent sequences: A097139 A097140 A097141 this_sequence A097143 A097144 A097145

more,nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 26 2004