[go: up one dir, main page]

login
A166400
Multiples of 23 whose digit reversal - 1 is also a multiple of 23.
1
1702, 1863, 3036, 3197, 4232, 4393, 4646, 5842, 7015, 7176, 7429, 8211, 8372, 8625, 8786, 9821, 9982, 10511, 10672, 10925, 12259, 13041, 13455, 13708, 13869, 14651, 14904, 16238, 16399, 17020, 17181, 17434, 17595, 17848, 18630, 18791, 21022, 21183
OFFSET
1,1
LINKS
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
Sequence in context: A091368 A263344 A159464 * A210121 A345506 A345782
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Oct 13 2009
EXTENSIONS
Extended and keyword:base added by R. J. Mathar, Oct 16 2009
STATUS
approved