OFFSET
1,2
COMMENTS
Subsequence of A034838. - Michel Marcus, Sep 19 2014
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10442
EXAMPLE
1155 is divisible by 1, 1, 5, 5, 11, 15 and 55.
MATHEMATICA
d12Q[n_]:=Module[{idn=IntegerDigits[n], idn2}, idn2=FromDigits/@Partition[ idn, 2, 1]; FreeQ[idn, 0]&&And@@Divisible[n, idn]&&And@@Divisible[n, idn2]]; Select[Range[400000], d12Q] (* Harvey P. Dale, Aug 11 2015 *)
PROG
(Python)
from itertools import product
A063527_list = []
for g in range(1, 7):
....for n in product('123456789', repeat=g):
........s = ''.join(n)
........m = int(s)
........if not any([m % int(d) for d in s]):
............for i in range(len(s)-1):
................if m % int(s[i:i+2]):
....................break
............else:
................A063527_list.append(m) # Chai Wah Wu, Sep 18 2014
(PARI) is(n) = {my(d = digits(n), t = 0); s = Set(d); if(s[1] == 0, return(0)); for(i = 1, 2, for(j = 1, #d - i + 1, t++; fr = fromdigits(vector(i, k, d[j+k-1])); if(n % fr != 0, return(0)); ) ); 1 } \\ David A. Corneth, Sep 17 2019
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Erich Friedman, Aug 01 2001
EXTENSIONS
More terms from David A. Corneth, Sep 17 2019
STATUS
approved