|
| |
|
|
A256876
|
|
Numbers divisible by prime(d) for each digit d in their base-6 representation, none of which may be zero.
|
|
1
|
|
|
|
15, 28, 154, 280, 525, 555, 735, 910, 1036, 1078, 1666, 3795, 4270, 4665, 4690, 5446, 5530, 5572, 5775, 5950, 6202, 7755, 9352, 9982, 10108, 13888, 14014, 15400, 18705, 18885, 18915, 19965, 19995
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Base-6 analog of A256786. See A256874 - A256879 for the base-4, ..., base-9 analogs.
See A256866 for a variant where divisibility by prime(d+1) is required instead.
|
|
|
LINKS
|
Table of n, a(n) for n=1..33.
|
|
|
MATHEMATICA
|
ndpQ[n_]:=Module[{ds=Union[IntegerDigits[n, 6]]}, FreeQ[ds, 0]&&And@@ Table[ Divisible[n, Prime[i]], {i, ds}]]; Select[Range[20000], ndpQ] (* Harvey P. Dale, May 29 2015 *)
|
|
|
PROG
|
(PARI) is(n, b=6)=!for(i=1, #d=Set(digits(n, b)), (!d[i]||n%prime(d[i]))&&return)
|
|
|
CROSSREFS
|
Cf. A256786, A256874 - A256879, A256868, A256882 - A256884, A256865 - A256870.
Sequence in context: A121594 A163286 A022997 * A051121 A001356 A104811
Adjacent sequences: A256873 A256874 A256875 * A256877 A256878 A256879
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
M. F. Hasler, Apr 11 2015
|
|
|
STATUS
|
approved
|
| |
|
|
