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 A164625 #9 Nov 21 2013 12:49:41
%S A164625 2,3,7,19,83,89,127,137,139,181,251,257,311,317,373,379,449,491,499,
%T A164625 503,509,673,733,797,853,857,863,919,971,983,1033,1039,1049,1093,1151,
%U A164625 1201,1217,1399,1453,1579,1583,1627,1697,1741,1871,1933,1993,2129,2237,2281
%N A164625 Primes p such that p+floor(p/2)+floor(p/3)+floor(p/5) is also prime.
%H A164625 Harvey P. Dale, <a href="/A164625/b164625.txt">Table of n, a(n) for n = 1..1000</a>
%e A164625 For p=7, 7+3+2+1=13 is prime, which admits 7=a(4) to the sequence.
%e A164625 For p=19, 19+9+6+3=37 is prime, which puts 19=a(5) into the sequence.
%t A164625 lst={};Do[p=Prime[n];If[PrimeQ[p+Floor[p/2]+Floor[p/3]+Floor[p/5]],AppendTo[lst, p]],{n,2*6!}];lst
%t A164625 Select[Prime[Range[350]],PrimeQ[Total[Floor[#/{2,3,5}]]+#]&] (* _Harvey P. Dale_, Feb 19 2012 *)
%Y A164625 Cf. A038874, A049545, A097933, A164624
%K A164625 nonn,easy
%O A164625 1,1
%A A164625 _Vladimir Joseph Stephan Orlovsky_, Aug 17 2009
%E A164625 Comments rephrased as examples by _R. J. Mathar_, Aug 20 2009