OFFSET
1,1
COMMENTS
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
MAPLE
A192135 := proc(nmax) local s , i, p, e ; s := {} ; for i from 1 do p := ithprime(i) ; if p^(p+1) > nmax then break; end if; for e from p+1 do if p^e > nmax then break; end if; s := s union {p^e} ; end do: end do: sort(s) ; end proc:
A192135(20000000) ; # R. J. Mathar, Jul 09 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 26 2011
STATUS
approved