OFFSET
1,3
COMMENTS
n such that A007090(n) is a multiple of n. - Robert Israel, Sep 13 2018
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..153 (terms < 5*10^12, first 100 terms from Robert Israel)
EXAMPLE
24 in base 4 is 120, which interpreted in base 10 is 120 = 5*24.
MAPLE
filter:= proc(n) local L, t;
L:= convert(n, base, 4);
t:= add(L[i]*10^(i-1), i=1..nops(L));
t mod n = 0
end proc:
filter(0):=true:
select(filter, [$0..10^5]); # Robert Israel, Sep 13 2018
MATHEMATICA
Join[{0}, Select[Range[40000], Divisible[FromDigits[IntegerDigits[#, 4]], #]&]] (* Harvey P. Dale, Apr 20 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Patrick De Geest, Apr 15 1998
EXTENSIONS
More terms from Erich Friedman and Naohiro Nomoto, Aug 06 2001
Offset changed by Robert Israel, Sep 13 2018
Name edited by Jon E. Schoenfield, Oct 25 2019
STATUS
approved