OFFSET
1,1
COMMENTS
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
PROG
(PARI) is(n) = { my (d = digits(n)); for (i = 1, #d, if (d[i], for (j = i, #d, my (s = fromdigits(d[i..j])); if (s % 7==0, return (1); ); ); ); ); return (0); } \\ Rémy Sigrist, Nov 16 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 09 2024
STATUS
approved
