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 A116614 #19 Nov 20 2017 05:31:51 %S A116614 3,6,9,21,22,25,34,35,37,39,40,41,42,44,50,53,55,56,61,65,67,68,84,86, %T A116614 87,90,99,102,108,113,122,127,130,132,139,142,153,154,155,158,161,163, %U A116614 176,183,189,190,194,198,211,219,225,232,233,237,238,248,258,259,278 %N A116614 Values of n such that prime(2n) mod 12 = 1. %H A116614 G. C. Greubel, <a href="/A116614/b116614.txt">Table of n, a(n) for n = 1..1000</a> %F A116614 Equals (1/2) * { even terms in A160594 = A000720(A068228) }. - _M. F. Hasler_, May 22 2009 %e A116614 53 is in the sequence because the 106th prime is 577 and 577 mod 12 = 1. %p A116614 a:=proc(n) if ithprime(2*n) mod 12 = 1 then n else fi end: seq(a(n),n=1..300); %t A116614 Select[Range[1, 500], Mod[Prime[2*#], 12] == 1 &] (* _G. C. Greubel_, Nov 19 2017 *) %o A116614 (PARI) for(n=1,999, prime(2*n)%12==1 & print1(n",")) \\ _M. F. Hasler_, May 22 2009 %Y A116614 Cf. A116602, A116610, A116612-A116617, A160591-A160594. [_M. F. Hasler_, May 22 2009] %K A116614 nonn %O A116614 1,1 %A A116614 _Roger L. Bagula_, Mar 29 2006 %E A116614 Edited by _N. J. A. Sloane_, Apr 05 2006