The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 a primes have 2 as a cubic residue. A097142/A006880. LINKS 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 3 01:51 EDT 2021. Contains 346429 sequences. (Running on oeis4.)