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,1

Links

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

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

Cf. A002997, A007535.

Sequence in context: A185713 A264384 A323999 * A373191 A275237 A129642

Adjacent sequences: A293509 A293510 A293511 * A293513 A293514 A293515

Keyword

nonn

Author

Amiram Eldar, Oct 12 2017

Status

approved