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 A086086 #12 Jun 08 2025 16:15:42
%S A086086 3,5,7,17,23,37,43,47,67,79,107,113,149,151,163,211,257,331,349,409,
%T A086086 421,439,509,521,587,593,601,617,709,727,797,839,907,911,937,941,1051,
%U A086086 1063,1163,1187,1319,1327,1447,1471,1489,1607,1619,1637,1667,1783,1789,1801
%N A086086 Primes p such that p - floor(sqrt(p)) is prime.
%H A086086 Harvey P. Dale, <a href="/A086086/b086086.txt">Table of n, a(n) for n = 1..1000</a>
%e A086086 a(5)=23 because 19 is prime and 23 - floor(sqrt(23)) = 23 - floor(4.795831523) = 23 - 4 = 19, which is prime.
%t A086086 f[n_]:=n-Floor[Sqrt[n]];lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst,p]],{n,7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Feb 25 2010 *)
%t A086086 Select[Prime[Range[300]],PrimeQ[#-Floor[Sqrt[#]]]&] (* _Harvey P. Dale_, Sep 26 2017 *)
%K A086086 nonn
%O A086086 1,1
%A A086086 _Chuck Seggelin_, Jul 08 2003
%E A086086 More terms from _Vladimir Joseph Stephan Orlovsky_, Feb 25 2010