|
|
A293512
|
|
Numbers k such that the smallest pseudoprime ( > k ) to base k, A007535(k), is a Carmichael number.
|
|
2
|
|
|
348, 355, 358, 383, 388, 427, 448, 455, 478, 479, 485, 490, 491, 497, 499, 508, 509, 511, 515, 520, 521, 533, 535, 541, 545, 547, 551, 553, 556, 557, 559, 560, 679, 708, 759, 765, 777, 796, 807, 808, 822, 828, 838, 839, 847, 862, 891, 906, 928, 931, 933, 951
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
348 is the sequence since A007535(348) = 1105 is a Carmichael number.
|
|
MATHEMATICA
|
carmichaelQ[n_] := Divisible[n - 1, CarmichaelLambda[n]] && ! PrimeQ[n];
f[n_] := Block[{k = n}, While[GCD[n, k] > 1 || PrimeQ[k] || PowerMod[n, k - 1, k] != 1, j = k++]; k]; Select[Range[1000], carmichaelQ[f[#]] &] (* after Robert G. Wilson v at A090086 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|