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 A024898 #54 Sep 08 2022 08:44:48 %S A024898 1,2,3,4,5,7,8,9,10,12,14,15,17,18,19,22,23,25,28,29,30,32,33,38,39, %T A024898 40,42,43,44,45,47,49,52,53,58,59,60,64,65,67,70,72,74,75,77,78,80,82, %U A024898 84,85,87,93,94,95,98,99,100,103,107,108,109,110,113,114,117,120,124,127,129,133 %N A024898 Positive integers k such that 6*k - 1 is prime. %C A024898 Actual primes are A007528. %C A024898 Number of terms less than 10^r, r=1,2,3,...: 8, 56, 397, 3040, 24571, 206502, 1781237, ... - _Muniru A Asiru_, Jan 26 2018 %H A024898 Zak Seidov and Michael De Vlieger, <a href="/A024898/b024898.txt">Table of n, a(n) for n = 1..10000</a> (first 3000 terms from Zak Seidov) %p A024898 select(k -> isprime(6*k-1), [$1..10^3]); # _Muniru A Asiru_, Jan 26 2018 %t A024898 Select[Range[150], PrimeQ[6 # - 1] &] (* _Bruno Berselli_, Jul 14 2014 *) %o A024898 (Magma) [n: n in [0..1000]| IsPrime(6*n-1)]; // _Vincenzo Librandi_, Nov 20 2010 %o A024898 (GAP) Filtered([1..1000], k->IsPrime(6*k-1)); # _Muniru A Asiru_, Jan 26 2018 %Y A024898 Cf. A007528, A046953 (complement). %K A024898 nonn %O A024898 1,2 %A A024898 _Clark Kimberling_