|
| |
|
|
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 two-thirds of the primes have 2 as a cubic residue. A097142/A006880.
|
|
|
LINKS
|
|
|
|
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
|
|
|
|
KEYWORD
|
more,nonn
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
|
|
|
STATUS
|
approved
|
| |
|
|
