OFFSET
0,3
LINKS
Jonathan Frech, Table of n, a(n) for n = 0..10000
PROG
(PARI) isok(m, dn) = {my(dm = digits(m, 4)); if ((Vecrev(dm) == dm) && (#dm == #dn), for (i=1, #dn, if (dn[i] > dm[i], return (0))); return(1); ); }
a(n) = {my(dn = digits(n, 4), m = n); while (!isok(m, dn), m++); m; } \\ Michel Marcus, Apr 07 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 10 2015
STATUS
approved