OFFSET
1,3
COMMENTS
From Robert Israel, Apr 10 2016: (Start)
n for which n divides A007091(n).
If n is in the sequence, then so is 5*n. (End)
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..577 (terms < 5*10^12, first 147 terms from Robert Israel)
EXAMPLE
25 in base 5 is 100, which interpreted in base 10 is 100 = 4 * 25.
224 in base 5 is 1344, which interpreted in base 10 is 1344 = 6 * 224.
MAPLE
filter:= proc(n) local L, i;
L:= convert(n, base, 5);
add(L[i]*10^(i-1), i=1..nops(L)) mod n = 0
end proc:
0, op(select(filter, [$1..10^5])); # Robert Israel, Apr 10 2016
MATHEMATICA
Select[Range[0, 13000], Divisible[FromDigits[IntegerDigits[#, 5]], #] &] (* Harvey P. Dale, Feb 01 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1998
EXTENSIONS
Example and better description from Erich Friedman, Jul 21 2001
Edited by Erich Friedman, Feb 09 2002
Offset changed and 0 inserted by Robert Israel, Apr 11 2016
Name edited by Jon E. Schoenfield, Oct 25 2019
STATUS
approved