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”).
%I #19 Dec 13 2024 13:20:06
%S 0,15,57,100,168,182,396,450,624,700,750,800,840,1050,1176,1190,1274,
%T 1485,1540,1716,2520,2652,2760,2772,2814,2850,2898,2970,3150,3486,
%U 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
%N Numbers divisible by prime(d+1) for each digit d of their base-7 representation.
%C The base-7 variant of A256882 - A256884, A256865 - A256870 in bases 2, ..., 10.
%C A variant of A256877 where digits 0 are forbidden and divisibility by prime(d) is required.
%H Harvey P. Dale, <a href="/A256867/b256867.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[0,9000],AllTrue[#/Prime[IntegerDigits[#,7]+1],IntegerQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 17 2020 *)
%o (PARI) is(n,b=7)=!for(i=1,#d=Set(digits(n,b)),n%prime(d[i]+1)&&return)
%Y Cf. A256882, A256883, A256884, A256865 - A256870, A256874 - A256879, A256786.
%K nonn,base,changed
%O 1,2
%A _M. F. Hasler_, Apr 11 2015