|
|
A029570
|
|
Quasi-Carmichael numbers to base -10: squarefree composites n such that prime p|n ==> p+10|n+10.
|
|
3
|
|
|
935, 65195, 861851, 1486895, 3061265, 4497686, 5164226, 5322419, 6153830, 8547998, 9125855, 22050809, 22734611, 25345310, 32812406, 40860755, 45631898, 50315135, 51436130, 61532153, 74613347, 81080990, 86724215, 94903370
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
qcp[n_, d_] := Block[{p, e}, {p, e} = Transpose@FactorInteger@n;
Length[p] > 1 && Max[e] == 1 && And @@ IntegerQ /@ ((n + d)/(p + d))]; Select[Range[10^6], qcp[#, 10] &] (* Giovanni Resta, May 21 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|