A256869 Numbers divisible by prime(d+1) for each digit d of their base-9 representation.
0, 20, 84, 90, 180, 252, 273, 455, 510, 738, 756, 810, 816, 840, 900, 1224, 1275, 1460, 1470, 1620, 1640, 2090, 2185, 2268, 2450, 2541, 3080, 3289, 3553, 4199, 4590, 5434, 6570, 6642, 6660, 6804, 7290, 7326, 7344, 7380, 7395, 7470, 7560, 7866, 8100, 8160, 8190, 8778, 8841, 8925, 9282
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..3000
Programs
-
Maple
P:= [seq(ithprime(i),i=1..9)]: filter:= proc(n) local L; L:= convert(convert(n,base,9),set); L:= map(t -> P[t+1],L); n mod convert(L,`*`) = 0 end proc: select(filter, [$0..10000]); # Robert Israel, Aug 01 2019
-
PARI
is(n,b=9)=!for(i=1,#d=Set(digits(n,b)),n%prime(d[i]+1)&&return)
Formula
a(n) ~ 223092870*n. - Robert Israel, Aug 01 2019
Comments