This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A097142 #19 Feb 16 2025 08:32:54
%S A097142 3,16,112,818,6367,52299,442972,3840740,33898001,303369367,2745366812,
%T A097142 25071938615
%N A097142 Number of primes p < 10^n for which 2 is a cubic residue (mod p).
%C A097142 It would appear that about two-thirds of the primes have 2 as a cubic residue. A097142/A006880.
%H A097142 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CubicResidue.html">Cubic Residue</a>
%t A097142 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}]
%Y A097142 Cf. A006880, A040028.
%K A097142 more,nonn
%O A097142 1,1
%A A097142 _Robert G. Wilson v_, Jul 26 2004
%E A097142 a(6)-a(7) from _Hiroaki Yamanouchi_, Aug 31 2014
%E A097142 a(8)-a(12) from _Hiroaki Yamanouchi_, Oct 17 2015