[go: up one dir, main page]

login
A077700
a(1) = 4; a(n) is the smallest multiple of a(n-1) that contains all the digits of a(n-1) and is not a multiple of 10.
2
4, 24, 264, 14256, 456192, 26459136, 635019264, 153039642624, 93507221643264, 23470312632459264, 20372231364974641152, 155664219859771233042432, 720258345291161495287332864, 592052359829334749126187614208
OFFSET
1,1
PROG
(PARI) A077700(n, a=4)={my(c(n, c=vector(10))=for(i=1, #n=digits(n), c[n[i]+1]++); c); for(i=2, n, my(cc=c(a)); for(k=2, oo, k%5 && vecmin(c(k*a)-cc)>=0 && (a*=k) && break)); a} \\ n=2 and optional 2nd arg as starting value yields next term:
print1(a=A077700(1)); for(n=2, 10, print1(", "a=A077700(2, a))) \\ M. F. Hasler, Nov 18 2018
CROSSREFS
Cf. A077701 (the ratios a(n+1)/a(n)).
Cf. A077696, A077698 (analog for initial term 2 resp. 3).
Sequence in context: A141014 A340023 A192983 * A080489 A101228 A009104
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 18 2002
EXTENSIONS
More terms from Ray Chandler, Jul 25 2003
Name edited by M. F. Hasler, Nov 18 2018
STATUS
approved