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

 

Logo

The OEIS is looking to hire part-time people to help edit core sequences, upload scanned documents, process citations, fix broken links, etc. - Neil Sloane, njasloane@gmail.com

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A138789 a(n) = number of distinct prime divisors of A104759(n). 17
0, 2, 2, 2, 3, 2, 2, 3, 3, 2, 2, 4, 4, 2, 5, 4, 2, 3, 7, 4, 4, 3, 3, 2, 5, 3, 5, 2, 3, 6, 6, 3, 3, 5, 5, 7, 3, 3, 4, 3, 3, 4, 4, 5, 3, 5, 7, 3, 5, 6, 6, 5, 4, 5, 2, 6, 4, 6, 4, 4, 7, 6, 5, 5, 6, 9 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Indices where number 1 occured in this sequence see A138790

LINKS

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

MATHEMATICA

lst = {}; Do[lst = Join[lst, IntegerDigits[n]], {n, 1, 50}]; Table[Length[FactorInteger[FromDigits[Reverse[lst[[Range[1, n]]]]]]], {n, 1, Length[lst]}] (* Robert Price, Mar 24 2015 *)

CROSSREFS

Cf. A000422, A116504, A007908, A116505, A007878, A138787.

Sequence in context: A053760 A223942 A278597 * A129654 A116504 A186233

Adjacent sequences:  A138786 A138787 A138788 * A138790 A138791 A138792

KEYWORD

nonn,base

AUTHOR

Artur Jasinski, Mar 30 2008

EXTENSIONS

Entire sequence corrected by Robert Price, Mar 24 2015

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 May 26 07:30 EDT 2017. Contains 287093 sequences.