OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[200], PrimeQ[Floor[(Prime[# + 1]/Prime[#])^#]] &] (* Paolo Xausa, May 05 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Aug 16 2006
STATUS
approved