%I #18 Sep 26 2020 14:00:10
%S 6,28,49,81,33,85,13,23,26,19,13,14,23,14,54,10,99,33,18,40,11,59,39,
%T 93,10,81,36,14,13,13,27,15,83,84,33,19,81,95,42,79,44,74,49,77,20,14,
%U 50
%N First two digits of n-th even perfect number.
%H Jan Munch Pedersen, <a href="http://amicable.homepage.dk/perfect.htm">Known Perfect Numbers</a> [Steven Bi (chenhsi(AT)stanford.edu), Jan 18 2009]
%H Omar E. Pol, <a href="http://www.polprimos.com/#Los%20n%C3%BAmeros%20perfectos">Los numeros perfectos</a>
%t Join[{6},FromDigits[Take[IntegerDigits[#],2]]&/@PerfectNumber[Range[2,50]]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 26 2020 *)
%Y Cf. A000396, A138862, A138875.
%Y First 2 digits of sequence A138875. [Steven Bi (chenhsi(AT)stanford.edu), Jan 18 2009]
%K base,more,nonn
%O 1,1
%A _Omar E. Pol_, Apr 02 2008
%E a(15)-a(31) added by Steven Bi (chenhsi(AT)stanford.edu), Jan 18 2009
%E Definition changed (inserting the word "even") and a(37)-a(47) added by _Ivan Panchenko_, Aug 04 2018
|