%I A097375
%S A097375 2,3,5,7,11,13,19,23,29,31,37,43,47,53,59,61,67,71,79,83,101,103,107,
%T A097375 127,131,139,149,151,157,167,173,179,181,191,197,199,211,223,227,229,
%U A097375 239,263,269,277,283,293,307,311,317,331,347,349,359,367,373,383,389
%N A097375 Primes p such that p-1 is cube-free.
%t A097375 f[n_]:=Module[{a=m=0},Do[If[FactorInteger[n][[m,2]]>2,a=1],{m,Length[FactorInteger[n]]}];
               a]; lst={};Do[p=Prime[n];If[f[p-1]==0,AppendTo[lst,p]],{n,6!}];lst 
               [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jul 15 2009]
%Y A097375 Cf. A004709, A039787, A097380.
%Y A097375 Sequence in context: A057447 A095074 A042987 this_sequence A007459 A129944 
               A152900
%Y A097375 Adjacent sequences: A097372 A097373 A097374 this_sequence A097376 A097377 
               A097378
%K A097375 nonn
%O A097375 1,1
%A A097375 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Aug 11 2004