A166389 Multiples of 7 whose reversal + 1 is also a multiple of 7.

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

Author

Claudio Meller, Oct 13 2009

Keywords

• nonn
• base

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Subsequence of A008589.

Programs

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 *)

PARI

isok(n) = !(n%7) && !((subst(Polrev(digits(n)),x,10)+1) % 7); \\ Michel Marcus, May 12 2016