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 A163431 #17 Oct 07 2024 03:23:13
%S A163431 3,19,83,179,191,239,373,431,643,719,739,883,1123,1151,1171,1237,1283,
%T A163431 1429,1459,1669,1811,2053,2083,2293,2351,2437,2579,2677,2687,2819,
%U A163431 2851,2879,3167,3253,3491,3539,3877,4051,4099,4483,4549,4643,4799,5087,5171
%N A163431 Primes p such that floor(p^3/8) is also prime.
%H A163431 Vincenzo Librandi, <a href="/A163431/b163431.txt">Table of n, a(n) for n = 1..1000</a>
%F A163431 A163430(n) = floor( a(n)^3/8 ).
%e A163431 a(1)=3 generates 3^3/8=3.375 where 3 is prime.
%e A163431 a(2)=19 generates 19^3/8=857.375 where 857 is prime.
%t A163431 f[n_]:=IntegerPart[(p/2)^3]; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, p]],{n,7!}];lst
%K A163431 nonn,easy
%O A163431 1,1
%A A163431 _Vladimir Joseph Stephan Orlovsky_, Jul 27 2009
%E A163431 Mathematica specific notation removed, comments moved to examples - _R. J. Mathar_, Sep 17 2009