The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A045920 Numbers n such that factorizations of n and n+1 have the same number of primes (including multiplicities). 23
 2, 9, 14, 21, 25, 27, 33, 34, 38, 44, 57, 75, 85, 86, 93, 94, 98, 116, 118, 121, 122, 124, 133, 135, 141, 142, 145, 147, 153, 158, 164, 170, 171, 174, 177, 201, 202, 205, 213, 214, 217, 218, 230, 244, 245, 253, 284, 285, 296, 298, 301, 302, 326, 332, 334, 350, 356, 361 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS A115186 is a subsequence: A001222(A115186(n))=A001222(A115186(n)+1)=n. - Reinhard Zumkeller, Jan 16 2006 Indices k such that A076191(k) = 0. - Ray Chandler, Dec 10 2008 REFERENCES C. Clawson, Mathematical mysteries, Plenum Press 1996, p. 250 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 FORMULA a(n) = A278291(n) - 1. - _Zakir Seidov_, Nov 17 2018 MATHEMATICA f[n_]:=Plus@@Last/@FactorInteger[n]; lst={}; Do[If[f[n]==f[n+1], AppendTo[lst, n]], {n, 0, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, May 12 2010 *) Transpose[Transpose[Select[Partition[Table[{n, PrimeOmega[n]}, {n, 400}], 2, 1], #[[1, 2]]==#[[2, 2]]&]][[1]]][[1]] (* Harvey P. Dale, Feb 21 2012 *) Position[Differences[PrimeOmega[Range[400]]], 0] // Flatten (* Zak Seidov, Oct 30 2012 *) PROG (Haskell) import Data.List (elemIndices) a045920 n = a045920_list !! (n-1) a045920_list = map (+ 1) \$ elemIndices 0 a076191_list -- Reinhard Zumkeller, Mar 23 2012, Oct 11 2011 (PARI) is(n)=bigomega(n)==bigomega(n+1) \\ Charles R Greathouse IV, Sep 14 2015 CROSSREFS Sequence in context: A274133 A288483 A304807 * A242466 A071344 A224855 Adjacent sequences:  A045917 A045918 A045919 * A045921 A045922 A045923 KEYWORD nice,nonn AUTHOR EXTENSIONS More terms from David W. Wilson 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 30 06:05 EDT 2020. Contains 333119 sequences. (Running on oeis4.)