%I A080062
%S A080062 4,8,9,16,25,27,32,45,49,64,81,121,125,128,169,225,243,256,289,325,343,
%T A080062 361,405,512,529,561,625,637,729,841,891,961,1024,1105,1125,1225,1331,
%U A080062 1369,1377,1681,1729,1849,2025,2048,2187,2197,2209,2401,2465,2809,2821
%N A080062 Composite numbers n such that for all primes p dividing n, p-1 divides 
               n-1.
%t A080062 Select[ Range[2, 10^4], !PrimeQ[ # ] && Union[ Mod[ # - 1, Transpose[ 
               FactorInteger[ # ]][[1]] - 1]] == {0} &]
%Y A080062 Cf. A056729 & A079543.
%Y A080062 Sequence in context: A052054 A046447 A087244 this_sequence A088949 A134600 
               A134601
%Y A080062 Adjacent sequences: A080059 A080060 A080061 this_sequence A080063 A080064 
               A080065
%K A080062 nonn
%O A080062 1,1
%A A080062 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 23 2003