login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A178544 a(n) are such that n or one of its substrings is divisible by every integer from 1 to a(n). 0
1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 4, 1, 2, 1, 4, 1, 4, 1, 2, 3, 2, 3, 4, 2, 3, 3, 2, 3, 3, 1, 4, 1, 4, 1, 4, 1, 4, 1, 2, 2, 4, 4, 2, 5, 4, 2, 4, 4, 2, 1, 2, 1, 6, 1, 8, 1, 2, 1, 6, 3, 3, 3, 4, 3, 3, 3, 4, 3, 2, 1, 4, 1, 2, 1, 4, 1, 4, 1, 2, 4, 2, 4, 4, 2, 4, 4, 2, 4, 3, 1, 4, 1, 4, 1, 4, 1, 4, 1, 2, 2, 3, 3, 2, 3 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Positions of records 1,2,6,12,45,54,56,... are terms in A177834 (with repetitions).

LINKS

Table of n, a(n) for n=1..105.

EXAMPLE

a(56)=8 because divisors of 56 are d1={1,2,4,7,8,14,28,56},

divisors of 5 are d2={1, 5}, divisors of 6 are d3={1,2,3,6},

and union of d1, d2, d3 gives 8 subsequent integers 1..8 (14,28,.. not counted).

MATHEMATICA

Table[id=IntegerDigits[n]; FLA=Flatten[Table[Partition[id, k, 1],

{k, Length[id]}], 1]; fd = Complement[Union[FromDigits /@ FLA], {0}];

dv=Union[Flatten[Divisors /@ fd]]; Complement[Range[100], dv][[1]]-1, {n, 10^3}]

CROSSREFS

A177834.

Sequence in context: A232098 A055874 A195155 * A161506 A066451 A091090

Adjacent sequences:  A178541 A178542 A178543 * A178545 A178546 A178547

KEYWORD

base,nonn

AUTHOR

Zak Seidov, May 29 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 23 20:23 EST 2017. Contains 295141 sequences.