OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[23 Range[6!], Divisible[FromDigits[Reverse[IntegerDigits[#]]] - 1, 23] &] (* G. C. Greubel, May 12 2016 *)
Select[23*Range[0, 1000], Divisible[IntegerReverse[#]-1, 23]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 10 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Oct 13 2009
EXTENSIONS
Extended and keyword:base added by R. J. Mathar, Oct 16 2009
STATUS
approved