OFFSET
1,2
LINKS
Colin Barker, Table of n, a(n) for n = 1..1500
FORMULA
a(n) = A239591(n)^4.
MATHEMATICA
cn4Q[n_]:=Module[{idn=IntegerDigits[n], len}, len=Length[idn]; OddQ[ len] && idn[[(len+1)/2]]==0&&DigitCount[n, 10, 0]==1]; Select[Range[0, 2000]^4, cn4Q] (* Harvey P. Dale, Dec 20 2015 *)
PROG
(PARI)
is_cyclops(k) = {
if(k==0, return(1));
my(d=digits(k), j);
if(#d%2==0 || d[#d\2+1]!=0, return(0));
for(j=1, #d\2, if(d[j]==0, return(0)));
for(j=#d\2+2, #d, if(d[j]==0, return(0)));
return(1)}
s=[]; for(n=0, 2000, if(is_cyclops(n^4), s=concat(s, n^4))); s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Mar 24 2014
STATUS
approved