OFFSET
1,1
COMMENTS
EXAMPLE
a(1) = 4 because 4 (base 7) = 4 (base 10) = 2 * 2, a semiprime (A001358).
a(2) = 6 because 6 (base 7) = 6 (base 10) = 2 * 3
a(3) = 7 because 7 (base 7) = 10 and 10 (base 10) = 2 * 5.
a(4) = 11 because 11 (base 7) = 14 and 14 (base 10) = 2 * 7.
a(5) = 12 because 12 (base 7) = 15 and 15 (base 10) = 3 * 5.
MATHEMATICA
Select[Range[187], Plus @@ Last /@ FactorInteger[FromDigits[IntegerDigits[ #, 7]]] == 2 &] (* Ray Chandler, Aug 05 2005 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Jul 30 2005
EXTENSIONS
Extended by Ray Chandler, Aug 05 2005
STATUS
approved