OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Umberto Cerruti, Pseudoprimi di Fermat e numeri di Carmichael (in Italian), p. 12.
MATHEMATICA
f[k_] := {24*k + 13, 72*k + 37, 192*k + 97}; Times @@ f[#]& /@ Select[Range[0, 500], And @@ PrimeQ[f[#]] &] (* Amiram Eldar, Apr 24 2024 *)
PROG
(Magma) [(24*n+13)*(72*n+37)*(192*n+97): n in [0..500] | IsPrime(24*n+13) and IsPrime(72*n+37) and IsPrime(192*n+97)];
(PARI) lista(kmax) = for(k = 0, kmax, if(isprime(24*k + 13) && isprime(72*k + 37) && isprime(192*k + 97), print1((24*k+13)*(72*k+37)*(192*k+97), ", "))); \\ Amiram Eldar, Apr 24 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Feb 25 2015
EXTENSIONS
Corrected and extended by Bruno Berselli, Feb 25 2015
STATUS
approved