%I #3 Mar 31 2012 12:38:26
%S 2,3,11,13,23,37,59,83,109,131,181,191,193,229,311,337,373,383,397,
%T 443,479,541,563,599,613,743,769,877,911,983,1019,1021,1031,1091,1093,
%U 1129,1153,1163,1237,1283,1297,1319,1381,1451,1453,1489,1523,1559,1571,1597
%N Primes p such that p + Floor[p/2] + Floor[p/3] is prime.
%C 11+5+3=19, 13+6+4=23, 23+11+7=41, ..
%t lst={};Do[p=Prime[n];If[PrimeQ[p+Floor[p/2]+Floor[p/3]],AppendTo[lst,p]],{n,2*6!}];lst
%Y Subsequence of A038874. Cf. A038874, A097933
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 17 2009
%E Edited by _Charles R Greathouse IV_, Nov 02 2009
|