%I A083737
%S A083737 1729,2821,6601,8911,15841,29341,41041,46657,52633,63973,75361,101101,
%T A083737 115921,126217,162401,172081,188461,252601,294409,314821,334153,340561,
%U A083737 399001,410041,488881,512461,530881,552721,658801,670033,721801,748657
%N A083737 Pseudoprimes to bases 2, 3 and 5.
%C A083737 a(n) = n-th positive integer k(>1) such that 2^(k-1) == 1 (mod k), 3^(k-1) 
               == 1 (mod k) and 5^(k-1) == 1 (mod k)
%C A083737 See A153580 for numbers k > 1 such that 2^k-2, 3^k-3 and 5^k-5 are all 
               divible by k but k is not a Carmichael number (A002997).
%C A083737 Note that a(1)=1729 is the Hardy-Ramanujan number. [From Omar E. Pol 
               (info(AT)polprimos.com), Jan 18 2009]
%H A083737 R. J. Mathar, <a href="b083737.txt">Table of n, a(n) for n=1..102</a>
%H A083737 J. Bernheiden, <a href="http://www.mathe-schule.de/download/pdf/Primzahl/
               PSP.pdf">Pseudoprimes (Text in German)</a>
%H A083737 F. Richman, <a href="http://www.math.fau.edu/Richman/carm.htm">Primality 
               testing with Fermat's little theorem</a>
%e A083737 a(1)=1729 since it is the first number such that 2^(k-1) == 1 (mod k), 
               3^(k-1) == 1 (mod k) and 5^(k-1) == 1 (mod k).
%t A083737 Select[ Range[838200], !PrimeQ[ # ] && PowerMod[2, # - 1, # ] == 1 && 
               PowerMod[3, 1 - 1, # ] == 1 && PowerMod[5, # - 1, # ] == 1 & ]
%Y A083737 Proper subset of A052155. Cf. A153580, A002997.
%Y A083737 Cf. A001235, A011541. [From Omar E. Pol (info(AT)polprimos.com), Jan 
               18 2009]
%Y A083737 Sequence in context: A051388 A033181 A154729 this_sequence A138129 A001235 
               A018850
%Y A083737 Adjacent sequences: A083734 A083735 A083736 this_sequence A083738 A083739 
               A083740
%K A083737 easy,nonn
%O A083737 1,1
%A A083737 Serhat Sevki Dincer (sevki(AT)ug.bilkent.edu.tr), May 05 2003
%E A083737 Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), May 06 2003
%E A083737 Edited by N. J. A. Sloane (njas(AT)research.att.com), Jan 14 2009