|
%I #13 May 21 2013 11:11:01
%S 935,65195,861851,1486895,3061265,4497686,5164226,5322419,6153830,
%T 8547998,9125855,22050809,22734611,25345310,32812406,40860755,
%U 45631898,50315135,51436130,61532153,74613347,81080990,86724215,94903370
%N Quasi-Carmichael numbers to base -10: squarefree composites n such that prime p|n ==> p+10|n+10.
%H Giovanni Resta, <a href="/A029570/b029570.txt">Table of n, a(n) for n = 1..293</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[#, 10] &] (* _Giovanni Resta_, May 21 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
