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 A153090 #24 Dec 24 2020 16:55:11
%S A153090 1,1,1,1,3,1,1,14,5,5,5,1,7,6,5,7,12,1,5,1,6,29,23,20,8,6,6,9,2,10,18,
%T A153090 19,13,57,1,1,9,10,8,5,8,8,26,5,5,6,39,41,6,9,50,6,32,6,4,8,2,79,28,
%U A153090 23,33,78,31,35,19,32,46,7,6,116,39,7,20,6,35,8
%N A153090 Least k(n) such that k(n)*3^n*(3^n-1)+j is prime with j= -1 or 1 or both.
%C A153090 Sum_{n=1..k} a(n) / Sum_{n=1..k} n tends to 2*log(3)/7.
%H A153090 Harvey P. Dale, <a href="/A153090/b153090.txt">Table of n, a(n) for n = 1..1000</a>
%e A153090 1*3^1*(3^1-1)-1=5 prime as 7 so k(1)=1 1*3^2*(3^2-1)-1=71 prime as 73 so k(2)=1
%t A153090 lk[n_]:=Module[{c=3^n (3^n-1),k=1},While[NoneTrue[k*c+{1,-1},PrimeQ],k++];k]; Array[lk,90] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 23 2020 *)
%Y A153090 Cf. A152414, A152091, A152092, A152093, A152094, A152095.
%K A153090 nonn
%O A153090 1,5
%A A153090 _Pierre CAMI_, Dec 18 2008
%E A153090 Corrected by _Harvey P. Dale_, Dec 23 2020