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 A210704 #21 Mar 30 2024 09:21:27 %S A210704 144224957030740838232163, %T A210704 144224957030740838232163831078010958839186925349935057754641619454168759682999733 %N A210704 Primes formed by initial digits of 3^(1/3) = A002581, i.e., of the form floor[3^(1/3)*10^k]. %C A210704 Inspired by prime curios about 4957 (cf. LINKS), one of which honors the late Bruce Murray, 30.11.1931 - 29.8.2013. %C A210704 See A210706 for the k-values. The keyword "less" for this records means that the next term (2488 digits) cannot be added / displayed here, and instead of listing further primes here, the k-values should be recorded in A210706. %H A210704 C. Caldwell, G.L. Honaker (Eds.), <a href="https://t5k.org/curios/page.php?short=4957">4957 (another Prime Pages' Curiosity)</a>. %F A210704 a(n) = floor[A002581 * 10^A210706(n)], where A002581 is taken as a constant. %t A210704 With[{cr3=RealDigits[CubeRoot[3],10,100][[1]]},Select[Table[FromDigits[Take[cr3,n]],{n,100}],PrimeQ]] (* _Harvey P. Dale_, Mar 30 2024 *) %o A210704 (PARI) (c=sqrtn(3,3),v=1/*set to 0 for indices instead of values*/)->for(k=0,precision(c),ispseudoprime(p=c\.1^k)&&print1([k,p][1+v]",")) %Y A210704 Cf. A005042 (analog for Pi), A007512 (analog for e), A115453 (analog for sqrt(2)), A119343 (analog for sqrt(3)), A072952 (analog for gamma). %K A210704 nonn,bref,less,base %O A210704 1,1 %A A210704 _M. F. Hasler_, Aug 31 2013