login
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
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
Sequence in context: A185713 A264384 A323999 * A373191 A275237 A129642
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 12 2017
STATUS
approved