|
%I #14 May 21 2013 11:12:18
%S 343027,387127,1344517,1430449,2125642,2383417,3537667,3542797,
%T 5808067,7592577,7834042,7930117,9241627,12122947,15250942,21928717,
%U 37908667,39355867,39627217,49825117,60738622,71092717,90640927,110995807
%N Quasi-Carmichael numbers to base -8: squarefree composites n such that prime p|n ==> p+8|n+8.
%H Giovanni Resta, <a href="/A029568/b029568.txt">Table of n, a(n) for n = 1..379</a> (terms < 10^12)
%H <a href="/index/Ca#Carmichael">Index entries for sequences related to Carmichael numbers.</a>
%t qcp[n_, d_] := Block[{p, e}, {p, e} = Transpose@FactorInteger@n;
%t Length[p] > 1 && Max[e] == 1 && And @@ IntegerQ /@ ((n + d)/(p + d))]; Select[Range[10^6], qcp[#, 8] &] (* _Giovanni Resta_, May 21 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
