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 A064221 #9 May 01 2022 13:20:41
%S A064221 4,1,3,19,33,4,165,35,150,35,205,35,63,435,48,4,223,399,388,149,125,
%T A064221 86,335,491,565,876,73,250,85,526,217,139,557,676,488,629,592,1290,
%U A064221 2110,366,140,2461,6198,6476,2033,751,7258,2054,2275,1345,445
%N A064221 Least k such that k*12^n +/- 1 are twin primes.
%t A064221 Do[ k = 1; While[ ! PrimeQ[ k*12^n + 1 ] || ! PrimeQ[ k*12^n - 1 ], k++ ]; Print[ k ], {n, 0, 50} ]
%t A064221 lktpQ[n_]:=Module[{c=12^n,k=1},While[!AllTrue[k*c+{1,-1},PrimeQ],k++];k]; Array[lktpQ,60,0] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 21 2015 *)
%Y A064221 Cf. A063983, A064213, A064214, A064215, A064217, A064218, A064220.
%K A064221 nonn
%O A064221 0,1
%A A064221 _Robert G. Wilson v_, Sep 21 2001
%E A064221 Offset corrected by _Georg Fischer_, May 01 2022