|
%I #14 May 21 2013 11:13:32
%S 715,1015,5467,14539,16555,16891,17155,22351,32395,36295,41595,42427,
%T 45787,47515,53815,62491,70219,100219,114835,115843,131035,145915,
%U 153049,160771,191851,204295,217147,220891,240331,267235,267691,321745,356155
%N Quasi-Carmichael numbers to base -5: squarefree composites n such that prime p|n ==> p+5|n+5.
%H Giovanni Resta, <a href="/A029565/b029565.txt">Table of n, a(n) for n = 1..6078</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[#, 5] &] (* _Giovanni Resta_, May 21 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
