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 A186782 #18 Sep 08 2022 08:45:56 %S A186782 2,11,17,29,41,71,101,107,113,137,173,179,251,257,281,317,353,401,431, %T A186782 467,617,641,647,653,677,683,761,821,827,941,977,1181,1193,1361,1373, %U A186782 1433,1511,1613,1697,1877,1901,1907,2081,2153,2237,2273,2297,2333,2381,2411,2591 %N A186782 Primes of the form k*6^m-1 with k prime and m an integer. %C A186782 Companion sequence to A185069. %e A186782 5*6^1-1 = 29 is prime and therefore a term. %e A186782 7*6^2-1 = 251 is prime and therefore a term. %e A186782 17*6^13-1 = 222031798271 is prime and therefore a term (see also its companion in A185069). %t A186782 maxM = 4; p = Prime[Range[PrimePi[2*6^maxM]]];Sort[Flatten[Table[Select[p + 1, PrimeQ[#/6^k] &], {k, 0, maxM}] - 1]] (* _T. D. Noe_, Feb 28 2011 *) %o A186782 (Magma) IsA186782:=function(n); k:=n+1; while k mod 6 eq 0 do k:=(k div 6); end while; return IsPrime(k); end function; [ n: n in PrimesUpTo(3000) | IsA186782(n) ]; // _Klaus Brockhaus_, Mar 01 2011 %Y A186782 Cf. A185069. %K A186782 nonn %O A186782 1,1 %A A186782 _Gilbert Mozzo_, Feb 26 2011