OFFSET
1,1
EXAMPLE
a(1)=2 because 1st semiprime = 2*2 and 2=2; a(2)=5 because 2nd semiprime=2*3 and 2<3.
MAPLE
A007953 := proc(n) add(d, d=convert(n, base, 10)) ; end proc: A176707 := proc(n) local p; p := numtheory[factorset](A001358(n)) ; add( A007953(d), d=p) ; end proc: isA176717 := proc(n) A176707(n) = A176707(n+1) ; end proc: for n from 1 to 1200 do if isA176717(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Apr 26 2010
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Apr 24 2010
EXTENSIONS
Corrected (13 inserted, 20 inserted, 34 and 55 removed) and extended beyond 91 by R. J. Mathar, Apr 26 2010
STATUS
approved