OFFSET
1,1
COMMENTS
LINKS
Wikipedia, Redmond-Sun conjecture.
FORMULA
EXAMPLE
MATHEMATICA
Position[Count[#, _?PrimeQ] & /@ Range @@@ # &@ Partition[#, 2, 1] &@ Select[Range[10^5], # == 1 || GCD @@ FactorInteger[#][[All, 2]] > 1 &], 0] // Flatten (* Michael De Vlieger, Jun 30 2016 *)
PROG
(PARI) a001597(n) = my(i=0, k=0); while(1, if(ispower(k) || k==1, i++); if(i==n, return(k)); k++)
a080769(n) = primepi(a001597(n+1))-primepi(a001597(n))
is(n) = a080769(n)==0
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Felix Fröhlich, Jun 30 2016
STATUS
approved