

A097142


Number of primes p < 10^n for which 2 is a cubic residue (mod p).


2



3, 16, 112, 818, 6367, 52299, 442972, 3840740, 33898001, 303369367, 2745366812, 25071938615
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

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


LINKS

Table of n, a(n) for n=1..12.
Eric Weisstein's World of Mathematics, Cubic Residue


MATHEMATICA

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


CROSSREFS

Cf. A006880, A040028.
Sequence in context: A218680 A141003 A002404 * A039751 A005419 A332024
Adjacent sequences: A097139 A097140 A097141 * A097143 A097144 A097145


KEYWORD

more,nonn


AUTHOR

Robert G. Wilson v, Jul 26 2004


EXTENSIONS

a(6)a(7) from Hiroaki Yamanouchi, Aug 31 2014
a(8)a(12) from Hiroaki Yamanouchi, Oct 17 2015


STATUS

approved



