OFFSET
1,1
EXAMPLE
See A077545.
MATHEMATICA
(See A077545.)
Select[Range[600], PrimeQ[Floor[# E/(E-1)]]&] (* Harvey P. Dale, Jan 25 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 23 2011
STATUS
approved