OFFSET
1,1
EXAMPLE
PROG
(PARI) a340587(limit)={my(p2=999, p1=2, n2=1, n1=4); for(n=5, limit, my(p0=ispower(n)); if(p0>1, if(p2+p0==4, print1(round(n1^(1/p1)), ", ")); n2=n1; n1=n; p2=p1; p1=p0))};
a340587(13000)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Jan 14 2021
STATUS
approved