OFFSET
1,3
COMMENTS
Subsequence of squares in A018846. - Michel Marcus, Aug 04 2014
PROG
(PARI) is_A018846(n, t=Vec("012..59.86"))={ apply(x->t[eval(x)+1], n=Vec(Str(n)))==vecextract(n, "-1..1"); }
lista(nn) = {for(n=0, nn, if (is_A018846(n^2), print1(n^2, ", "))); } \\ Michel Marcus, Aug 04 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved