A076136 -id:A076136 - cp's OEIS frontend

A077434 Duplicate of A076136.

3, 4, 8, 12, 16, 36, 40, 54, 63, 75, 88, 104, 112, 132, 135, 140, 150, 195, 200, 204, 208

Offset: 1

dead

A291126 Psibonacci numbers: solutions n of the equation psi(n) = psi(n-1) + psi(n-2), where psi is the Dedekind psi function (A001615).

3, 6, 210, 88200, 101970, 193290, 289680, 993990, 11264550, 59068230, 72776970, 98746230, 122460690, 126500910, 132766770, 234150930, 514442214, 531391650, 638082390, 650428020, 790769790, 1249160790, 3727074450, 4775972850, 8299675650, 9530202210

Offset: 1

Amiram Eldar, Aug 19 2017

nonn

Analogous to phibonacci numbers (A065557) and other sequences (see crossrefs).

			psi(210) = 576 = 240 + 336 = psi(209) + psi(208), therefore 210 is in the sequence.

Giovanni Resta, Table of n, a(n) for n = 1..70 (terms < 4*10^12)

Cf. A001615, A065557, A065900, A076136, A076251, A145469.

psi[n_]:=If[n < 1, 0, n Sum[ MoebiusMu[ d]^2 / d, {d, Divisors @ n}]];
Select[Range[10^6], psi[#]==psi[#-1]+psi[#-2] &]

a(21)-a(26) from Giovanni Resta, Aug 26 2018

A291176 Numbers k such that s(k) = s(k-1) + s(k-2), where s(k) is the sum of proper divisors of k (A001065).

Original entry on oeis.org

3, 8, 20, 146139, 584835, 44814015, 1436395095, 9988999095, 25997557299, 193861767939, 2105722150095, 3921293253003, 8234992646643

Offset: 1

Amiram Eldar, Aug 19 2017

a(14) > 10^13. - Giovanni Resta, Feb 25 2020

			s(146139) = 76581 = 75802 + 779 = s(146138) + s(146137), therefore 146139 is in the sequence.

Cf. A001065, A065557, A065900, A076136, A076251, A145469.

s[n_]:=DivisorSigma[1,n]-n; Select[Range[10^6], s[#]==s[#-1]+s[#-2] &]

a(7)-a(10) from Giovanni Resta, Aug 29 2017

a(11)-a(13) from Giovanni Resta, Feb 25 2020

A076137 Numbers k such that Omega(k) = Omega(k-1) + Omega(k-2) + Omega(k-3), where Omega(n) denotes the number of prime factors of n, with multiplicity.

Original entry on oeis.org

4, 32, 64, 96, 144, 180, 216, 224, 240, 360, 400, 432, 576, 600, 648, 672, 800, 972, 1008, 1040, 1088, 1104, 1188, 1232, 1260, 1344, 1400, 1404, 1408, 1456, 1500, 1584, 1620, 1624, 1680, 1700, 1764, 1800, 1840, 1880, 1904, 1920, 1980, 2000, 2040, 2064

Offset: 1

Joseph L. Pe, Oct 30 2002

nonn

			a(3) = 64 is a term because Omega(64) = 6 = Omega(63)+Omega(62)+Omega(61) = 3+2+1 = 6.

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A076136, A001222.

l = {4}; Do[If[Omega[n] == Omega[n - 1] + Omega[n - 2] + Omega[n - 3], l = Append[l, n]], {n, 5, 5000}]; l
Transpose[Select[Partition[Range[2100],4,1],PrimeOmega[Last[#]] == Total[ PrimeOmega[Take[#,3]]]&]][[4]] (* Harvey P. Dale, Nov 29 2011 *)

A332973 Solutions k of the equation usigma(k) = usigma(k-1) + usigma(k-2) where usigma(k) is the sum of unitary divisors of k (A034448).

Original entry on oeis.org

3, 42, 188970, 998670, 51670374, 91397154, 236280786, 259172826, 792554574, 1106710914, 1468869930, 1957827498, 2467823442, 2496238590, 3324585210, 4055970282, 4183629690, 4384566870, 13479861630, 20681058270, 29343074178, 43449285210, 68705958690, 71418085926

Offset: 1

Amiram Eldar, Mar 04 2020

nonn

			42 is a term since s(42) = 96 and s(40) + s(41) = 54 + 42 = 96.

Giovanni Resta, Table of n, a(n) for n = 1..64 (terms < 10^13)

The unitary version of A065900.

Cf. A034448, A065557, A075565, A076136, A145469, A291126, A291176, A292033, A294995, A332974.

usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); Select[Range[3, 10^8], usigma[#] == usigma[# - 1] + usigma[# - 2] &]

usigma(k) = sumdivmult(k, d, if(gcd(d, k/d)==1, d)); \\ A034448
isok(k) = usigma(k) == usigma(k-1) + usigma(k-2); \\ Jinyuan Wang, Mar 08 2020

Terms a(22) and beyond from Giovanni Resta, Mar 10 2020

A332975 Solutions k of the equation isigma(k) = isigma(k-1) + isigma(k-2) where isigma(k) is the sum of the infinitary divisors of k (A049417).

Original entry on oeis.org

3, 24, 360, 5016, 28440, 42066, 50568, 60456, 187176, 998670, 1454706, 12055512, 14365608, 25726728, 27896424, 51670374, 91702962, 141084774, 236280786, 249854952, 386668344, 439362504, 792554574, 1115866152, 1931976696, 2467823442, 2496238590, 2655297558, 2715505440

Offset: 1

Amiram Eldar, Mar 04 2020

nonn

			24 is a term since isigma(24) = 60 and isigma(22) + isigma(23) = 36 + 24 = 60.

Amiram Eldar, Table of n, a(n) for n = 1..38

The infinitary version of A065900.

Cf. A049417, A065557, A075565, A076136, A076251, A145469, A291126, A291176, A292033, A294995, A332976.

fun[p_, e_] := Module[{b = IntegerDigits[e, 2]}, m = Length[b]; Product[If[b[[j]] > 0, 1 + p^(2^(m - j)), 1], {j, 1, m}]]; isigma[1] = 1; isigma[n_] := Times @@ fun @@@ FactorInteger[n]; Select[Range[3, 10^5], isigma[#] == isigma[# - 1] + isigma[# - 2] &]

A077617 Numbers k such that Omega(k) = Omega(k+1) + Omega(k+2).

Original entry on oeis.org

12, 16, 24, 40, 45, 48, 56, 84, 100, 105, 132, 136, 140, 165, 168, 189, 204, 210, 224, 228, 261, 264, 272, 297, 315, 330, 345, 357, 372, 378, 380, 405, 441, 444, 450, 464, 465, 468, 477, 496, 513, 520, 522, 525, 536, 544, 546, 561, 564, 567, 588, 608, 621

Offset: 1

Shyam Sunder Gupta, Dec 01 2002

nonn

Omega(n) denotes the number of prime factors of n, counting multiplicity.

			a(2) = 16 is a term because Omega(16) = 4 = Omega(17) + Omega(18) = 1 + 3 = 4.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A001222, A076136.

f:=func; [k:k in [2..650]| f(k) eq f(k+1)+ f(k+2)]; // Marius A. Burtea, Feb 19 2020

Select[Range[1, 1000], PrimeOmega[#] == PrimeOmega[# + 1] + PrimeOmega[# + 2] &] (* Vaclav Kotesovec, Feb 13 2019 *)
Position[Partition[PrimeOmega[Range[700]],3,1],?(#[[1]]==#[[2]]+#[[3]] &),1,Heads->False]//Flatten (* _Harvey P. Dale, Aug 18 2019 *)

j=[]; for(n=1,1000,if(bigomega(n)==bigomega(n+1)+bigomega(n+2),j=concat(j,n))); j

A291175 Numbers k such that lambda(k) = lambda(k-1) + lambda(k-2), where lambda(k) is Carmichael lambda function (A002322).

Original entry on oeis.org

3, 5, 7, 11, 13, 22, 46, 371, 717, 1379, 1436, 1437, 3532, 5146, 12209, 35652, 45236, 58096, 93932, 130170, 263589, 327095, 402056, 680068, 808303, 814453, 870689, 991942, 1178628, 1670065, 1686526, 2041276, 2319102, 2324004, 3869372, 4290742, 4449280

Offset: 1

Amiram Eldar, Aug 19 2017

nonn

			lambda(717) = 238 = 178 + 60 = lambda(716) + lambda(715), therefore 717 is in the sequence.

Amiram Eldar, Table of n, a(n) for n = 1..250

Cf. A002322, A065557, A065900, A076136, A076251, A145469.

Select[Range[10^6], CarmichaelLambda[#]==CarmichaelLambda[#-1]+CarmichaelLambda[#-2]&]
Flatten[Position[Partition[CarmichaelLambda[Range[45*10^5]],3,1],?(#[[1]]+#[[2]] == #[[3]]&),1,Heads->False]]+2 (* _Harvey P. Dale, Sep 02 2024 *)

from sympy import reduced_totient
A291175_list, a, b, c, n = [], 1, 1, 2, 3
while n < 10**6:
    if c == a + b:
        A291175_list.append(n)
        print(len(A291175_list),n)
    n += 1
    a, b, c = b, c, reduced_totient(n) # Chai Wah Wu, Aug 31 2017

A332971 Infinitary phibonacci numbers: solutions k of the equation iphi(k) = iphi(k-1) + iphi(k-2) where iphi(k) is an infinitary analog of Euler's phi function (A091732).

Original entry on oeis.org

3, 4, 7, 23, 121, 2857, 5699, 6377, 9179, 46537, 63209, 244967, 654497, 1067873, 1112009, 3435929, 3831257, 6441593, 7589737, 7784507, 8149751, 14307856, 22434089, 24007727, 24571871, 44503417, 44926463, 56732729, 128199059, 140830367, 190145936, 401767631, 403152737

Offset: 1

Amiram Eldar, Mar 04 2020

nonn

			7 is a term since iphi(7) = 6 and iphi(5) + iphi(6) = 4 + 2 = 6.

Amiram Eldar, Table of n, a(n) for n = 1..70

An infinitary version of A065557.

Cf. A065900, A075565, A076136, A076251, A091732, A145469, A291126, A291176, A292033, A294995.

f[p_, e_] := p^(2^(-1 + Position[Reverse@IntegerDigits[e, 2], 1])); iphi[1] = 1; iphi[n_] := Times @@ (Flatten @ (f @@@ FactorInteger[n]) - 1); Select[Range[3, 10^5], iphi[#] == iphi[# - 1] + iphi[# - 2] &]

A332972 Solutions k of the equation cototient(k) = cototient(k-1) + cototient(k-2) where cototient(k) is A051953.

Original entry on oeis.org

3, 4, 105, 165, 195, 2205, 2835, 38805, 131145, 407925, 936495, 1025505, 1231425, 1276905, 1788255, 1925565, 2521695, 2792145, 2847585, 3289935, 5003745, 5295885, 5710089, 6315309, 6986889, 13496385, 17168085, 19210065, 20171385, 22348365, 26879685, 27798705

Offset: 1

Amiram Eldar, Mar 04 2020

nonn

			3 is a term since cototient(3) = 1 and cototient(1) + cototient(2) = 0 + 1 = 1.
105 is a term since cototient(105) = 57 and cototient(103) + cototient(104) = 1 + 56 = 57.

Amiram Eldar, Table of n, a(n) for n = 1..176

Cf. A051953, A065557, A065900, A075565, A076136, A076251, A145469, A291126, A291176, A292033, A294995.

cotot[n_] := n - EulerPhi[n]; Select[Range[3, 10^6], cotot[#] == cotot[# - 1] + cotot[# - 2] &]

cp's OEIS Frontend

A077434 Duplicate of A076136.

Views

Author

Keywords

A291126 Psibonacci numbers: solutions n of the equation psi(n) = psi(n-1) + psi(n-2), where psi is the Dedekind psi function (A001615).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A291176 Numbers k such that s(k) = s(k-1) + s(k-2), where s(k) is the sum of proper divisors of k (A001065).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A076137 Numbers k such that Omega(k) = Omega(k-1) + Omega(k-2) + Omega(k-3), where Omega(n) denotes the number of prime factors of n, with multiplicity.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A332973 Solutions k of the equation usigma(k) = usigma(k-1) + usigma(k-2) where usigma(k) is the sum of unitary divisors of k (A034448).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A332975 Solutions k of the equation isigma(k) = isigma(k-1) + isigma(k-2) where isigma(k) is the sum of the infinitary divisors of k (A049417).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A077617 Numbers k such that Omega(k) = Omega(k+1) + Omega(k+2).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A291175 Numbers k such that lambda(k) = lambda(k-1) + lambda(k-2), where lambda(k) is Carmichael lambda function (A002322).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Python

A332971 Infinitary phibonacci numbers: solutions k of the equation iphi(k) = iphi(k-1) + iphi(k-2) where iphi(k) is an infinitary analog of Euler's phi function (A091732).

Views

Author