editing
approved
editing
approved
Select[Range[181], Plus @@ Last /@ FactorInteger[FromDigits[IntegerDigits[ #, 9]]] == 2 &] (* _Ray Chandler_, Aug 05 2005 *)
approved
editing
editing
approved
Harvey P. Dale, <a href="/A110607/b110607.txt">Table of n, a(n) for n = 1..1000</a>
Select[Range[200], PrimeOmega[FromDigits[IntegerDigits[#, 9]]]==2&] (* Harvey P. Dale, Dec 02 2018 *)
approved
editing
_Jonathan Vos Post (jvospost3(AT)gmail.com), _, Jul 30 2005
Extended by _Ray Chandler (rayjchandler(AT)sbcglobal.net), _, Aug 05 2005
a(3) = 9 because 9 (base 9) = 10, and 10 (base 10) = 2 * 5.
a(4) = 13 because 13 (base 9) = 14, and 14 (base 10) = 2 * 7.
a(5) = 14 because 14 (base 9) = 15, and 15 (base 10) = 3 * 5.
base,easy,nonn,new
base,easy,nonn,new
Jonathan Vos Post (jvospost2jvospost3(AT)yahoogmail.com), Jul 30 2005
base,easy,nonn,new
Extended by Ray Chandler (RayChandlerrayjchandler(AT)alumni.tcusbcglobal.edunet), Aug 05 2005
Numbers n whose base 9 representations, interpreted as base 10 integers, are semiprimes.
4, 6, 9, 13, 14, 19, 20, 23, 24, 30, 31, 32, 35, 42, 46, 50, 52, 53, 56, 59, 67, 70, 74, 77, 78, 79, 87, 91, 95, 98, 100, 101, 102, 111, 112, 118, 119, 120, 122, 123, 131, 134, 136, 141, 151, 152, 156, 158, 160, 163, 164, 165, 167, 168, 174, 175, 176, 178, 179, 181
1,1
a(1) = 4 because 4 (base 9) = 4 (base 10) = 2 * 2, a semiprime (A001358).
a(2) = 6 because 6 (base 9) = 6 (base 10) = 2 * 3.
a(3) = 9 because 9 (base 9) = 10, and 10 (base 10) = 2 * 5.
a(4) = 13 because 13 (base 9) = 14, and 14 (base 10) = 2 * 7.
a(5) = 14 because 14 (base 9) = 15, and 15 (base 10) = 3 * 5.
Select[Range[181], Plus @@ Last /@ FactorInteger[FromDigits[IntegerDigits[ #, 9]]] == 2 &] (*Chandler*)
base,easy,nonn
Jonathan Vos Post (jvospost2(AT)yahoo.com), Jul 30 2005
Extended by Ray Chandler (RayChandler(AT)alumni.tcu.edu), Aug 05 2005
approved