%I A157473
%S A157473 2,127,91127,328511,1157627,2146691,12326393,125751503,693154127,
%T A157473 751089431,1033364333,2102071043,2222447627,2893640627,3314613773,
%U A157473 3951805943,6591796877,9063964127,13464285941,16406426423,19880486831
%N A157473 Primes : if (p-2)^(1/3)-+2 are also primes.
%C A157473 (127-2)^(1/3)-2=3;(127-2)^(1/3)+2=7,...
%t A157473 q=2;lst={};Do[p=Prime[n];r=(p-q)^(1/3)-q;u=(p-q)^(1/3)+q;If[PrimeQ[r]&&PrimeQ[u],
               AppendTo[lst,p]],{n,4*9!}];lst
%t A157473 lst = {}; p = 0; While[p < 2955, If[ PrimeQ[p - 2] && PrimeQ[p + 2] && 
               PrimeQ[p^3 + 2], AppendTo[lst, p^3 + 2]]; p++ ]; lst [From Robert 
               G. Wilson v (rgwv(AT)rgwv.com), Mar 08 2009]
%Y A157473 Cf. A127435, A127436, A157467, A157468
%Y A157473 Sequence in context: A075596 A092832 A105761 this_sequence A004864 A106319 
               A106320
%Y A157473 Adjacent sequences: A157470 A157471 A157472 this_sequence A157474 A157475 
               A157476
%K A157473 nonn
%O A157473 1,1
%A A157473 Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 01 2009
%E A157473 a(8)-a(21) from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 08 2009