login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A256867
Numbers divisible by prime(d+1) for each digit d of their base-7 representation.
2
0, 15, 57, 100, 168, 182, 396, 450, 624, 700, 750, 800, 840, 1050, 1176, 1190, 1274, 1485, 1540, 1716, 2520, 2652, 2760, 2772, 2814, 2850, 2898, 2970, 3150, 3486, 3570, 3861, 4173, 4368, 4488, 4860, 4900, 4940, 4970, 5160, 5250, 5490, 5595, 5600, 5880, 5950, 6435, 6630, 7224, 7350, 7560, 7602, 7910, 8050, 8232, 8330
OFFSET
1,2
COMMENTS
The base-7 variant of A256882 - A256884, A256865 - A256870 in bases 2, ..., 10.
A variant of A256877 where digits 0 are forbidden and divisibility by prime(d) is required.
LINKS
MATHEMATICA
Select[Range[0, 9000], AllTrue[#/Prime[IntegerDigits[#, 7]+1], IntegerQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 17 2020 *)
PROG
(PARI) is(n, b=7)=!for(i=1, #d=Set(digits(n, b)), n%prime(d[i]+1)&&return)
KEYWORD
nonn,base,changed
AUTHOR
M. F. Hasler, Apr 11 2015
STATUS
approved