login
A166389
Multiples of 7 whose reversal + 1 is also a multiple of 7.
1
14, 84, 140, 147, 231, 238, 322, 329, 392, 399, 413, 483, 504, 574, 665, 756, 840, 847, 931, 938, 1043, 1134, 1225, 1295, 1316, 1386, 1400, 1407, 1470, 1477, 1561, 1568, 1652, 1659, 1743, 1834, 1925, 1995, 2044, 2135, 2226, 2296, 2310, 2317, 2380, 2387
OFFSET
1,1
LINKS
MATHEMATICA
Select[7 Range[6!], Divisible[FromDigits[Reverse[IntegerDigits[#]]] + 1, 7] &] (* G. C. Greubel, May 12 2016 *)
Select[7Range[400], Mod[IntegerReverse[#]+1, 7]==0&] (* Harvey P. Dale, Aug 16 2024 *)
PROG
(PARI) isok(n) = !(n%7) && !((subst(Polrev(digits(n)), x, 10)+1) % 7); \\ Michel Marcus, May 12 2016
CROSSREFS
Subsequence of A008589.
Sequence in context: A108683 A376290 A323415 * A085036 A107935 A008451
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Oct 13 2009
STATUS
approved