OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Oct 13 2009
STATUS
approved