A293512 Numbers k such that the smallest pseudoprime ( > k ) to base k, A007535(k), is a Carmichael number.

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

Author

Amiram Eldar, Oct 12 2017

Keywords

• nonn

Examples

			348 is the sequence since A007535(348) = 1105 is a Carmichael number.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A002997, A007535.

Programs

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 *)