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 A344263 #27 Aug 12 2024 23:28:25
%S A344263 0,3,4,11,35,56,88,104,476,1367,1707,2472,22232,25260
%N A344263 Numbers m such that 3^(2m+1) - 3^m + 1 is prime.
%C A344263 a(14) > 30000.
%C A344263 a(14) > 50000. - _Michael S. Branicky_, Aug 12 2024
%p A344263 for m from 0 to 3000 do if isprime(3^(2*m + 1) - 3^m + 1) then print(m); end if; end do;
%t A344263 Do[If[PrimeQ[3^(2 m + 1) - 3^m + 1], Print[m]], {m, 0, 3000}]
%t A344263 Select[Range[0,2500],PrimeQ[3^(2#+1)-3^#+1]&] (* _Harvey P. Dale_, Mar 01 2023 *)
%o A344263 (PARI) for(m=0, 3e3, if(isprime(3^(2*m+1)-3^m+1), print1(m", ")))
%o A344263 (SageMath)
%o A344263 for m in range(3000):
%o A344263 if is_prime(3^(2*m + 1) - 3^m + 1):
%o A344263 print(m)
%Y A344263 Cf. A344170.
%K A344263 nonn,more
%O A344263 1,2
%A A344263 _Reza K Ghazi_, May 13 2021