OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..2665 (terms < 4*10^30)
Carlos Rivera, Puzzle 739
Eric Weisstein's World of Mathematics, Carmichael Number
PROG
(Magma) lst:=[]; for k in [1..920] do t:={n: n in [1..3] | IsPrime(6*k*n+1)}; if #Set(t) eq 2 then c:=&*[6*k*n+1: n in [1..3]]; if IsOne(c mod CarmichaelLambda(c)) then lst:=Append(lst, c); end if; end if; end for; lst;
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, May 28 2014
STATUS
approved