OFFSET
1,1
MAPLE
isA134808 := proc(n) local dgs, ndgs, d ; dgs := convert(n, base, 10) ; ndgs := nops(dgs) ; if ndgs mod 2 = 0 then false; else for d from 1 to ndgs do if d = (ndgs+1)/2 and op(d, dgs) <> 0 then RETURN(false); elif d <> (ndgs+1)/2 and op(d, dgs) = 0 then RETURN(false); fi; od: true; fi; end: for n from 1 to 11100 by 2 do if isA134808(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jul 13 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jul 04 2009
EXTENSIONS
More terms from R. J. Mathar, Jul 13 2009
STATUS
approved