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 A102340 #17 Jun 15 2024 16:19:55
%S A102340 2,10,14,31,32,34,35,49,52,73,74,79,80,92,95,97,113,116,118,125,127,
%T A102340 128,134,136,139,142,148,149,155,160,169,172,178,185,196,205,211,217,
%U A102340 224,227,238,245,251,260,262,263,265,272,281,283,284,287,296,298,304,305,311,322,323,325,326,335,343
%N A102340 Numbers k such that k3333 is prime.
%H A102340 Harvey P. Dale, <a href="/A102340/b102340.txt">Table of n, a(n) for n = 1..1000</a>
%e A102340 k=2 is in the sequence because k3333 = 23333 is prime.
%e A102340 k=73 is in the sequence because k3333 = 733333 is prime.
%e A102340 k=125 is in the sequence because k3333 = 1253333 is prime.
%t A102340 Select[Range[500],PrimeQ[FromDigits[Join[IntegerDigits[#],{3,3,3,3}]]]&] (* _Harvey P. Dale_, Jun 17 2014 *)
%t A102340 Select[Range[500],PrimeQ[#*10^4+3333]&] (* _Harvey P. Dale_, Jun 15 2024 *)
%o A102340 (Magma) [ n: n in [1..700] | IsPrime(Seqint([3,3,3,3] cat Intseq(n))) ]; // _Vincenzo Librandi_, Feb 04 2011
%Y A102340 Cf. A101472.
%K A102340 nonn,base
%O A102340 1,1
%A A102340 _Parthasarathy Nambi_, Feb 20 2005