OFFSET
0,2
COMMENTS
MAPLE
From R. J. Mathar, Mar 09 2010: (Start)
isA025475 := proc(n) pdec := ifactors(n)[2] ; if nops(pdec) = 1 then return ( op(2, op(1, pdec)) > 1 ); else false; end if; end proc:
A175106 := proc(n) option remember; local a; if n = 0 then 1; else if type(n, 'odd') then nextprime(procname(n-1)) ; else for a from procname(n-1)+1 do if isA025475(a) then return a ; end if; end do ; end if; end if; end proc:
seq(A175106(n), n=0..80) ; (End)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 11 2010
EXTENSIONS
Extended by Ray Chandler, Mar 11 2010
More terms from R. J. Mathar, Mar 09 2010
STATUS
approved