OFFSET
1,1
LINKS
FORMULA
a(n) ~ 7n. - Charles R Greathouse IV, Feb 12 2017
MATHEMATICA
Select[7*Range[500], MemberQ[IntegerDigits[#], 7] &] (* Paolo Xausa, Feb 25 2024 *)
PROG
(PARI) is(n)=n%7==0 && setsearch(Set(digits(n)), 7) \\ Charles R Greathouse IV, Feb 12 2017
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Reinhard Zumkeller, Jul 21 2006
EXTENSIONS
Typo in comment fixed by Reinhard Zumkeller, May 01 2011
STATUS
approved