A252041 -id:A252041 - cp's OEIS frontend

A251603 Numbers k such that k + 2 divides k^k - 2.

3, 4551, 46775, 82503, 106976, 1642796, 4290771, 4492203, 4976427, 21537831, 21549347, 21879936, 51127259, 56786087, 60296571, 80837771, 87761787, 94424463, 96593696, 138644871, 168864999, 221395539, 255881451, 297460451, 305198247, 360306363, 562654203

Offset: 1

Juri-Stepan Gerasimov, Dec 05 2014

nonn

Numbers k such that (k^k - 2)/(k + 2) is an integer.
Since k == -2 (mod k+2), also numbers k such that k + 2 divides (-2)^k - 2. - Robert Israel, Jan 04 2015
Numbers k == 0 (mod 4) such that A066602(k/2+1) = 8, and odd numbers k such that k = 3 or A082493(k+2) = 8. - Robert Israel, Apr 08 2015

			3 is in this sequence because 3 + 2 = 5 divides 3^3 - 2 = 25.

Max Alekseyev, Table of n, a(n) for n = 1..890 (all terms below 10^15)

Cf. A001477, A004273, A004275, A066602, A082493, A081765, A213382, A252606, A357125.

[n: n in [0..10000] | Denominator((n^n-2)/(n+2)) eq 1];

isA251603 := proc(n)
    if modp(n &^ n-2,n+2) = 0 then
        true;
    else
        false;
    end if;
end proc:
A251603 := proc(n)
    option remember;
    local a;
    if n = 1 then
        3;
    else
        for a from procname(n-1)+1 do
            if isA251603(a) then
                return a;
            end if;
        end do:
    end if;
end proc: # R. J. Mathar, Jan 09 2015

Select[Range[10^6], Mod[PowerMod[#, #, # + 2] - 2, # + 2] == 0 &] (* Michael De Vlieger, Dec 20 2014, based on Robert G. Wilson v at A252041 *)

for(n=1,10^9,if(Mod(n,n+2)^n==+2,print1(n,", "))); \\ Joerg Arndt, Dec 06 2014

A251603_list = [n for n in range(1,10**6) if pow(n, n, n+2) == 2] # Chai Wah Wu, Apr 13 2015

The even terms form A122711, the odd terms are those in A245319 (forming A357125) decreased by 2. - Max Alekseyev, Sep 22 2016

a(6)-a(27) from Joerg Arndt, Dec 06 2014

A249751 Numbers m such that m - 2 divides m^m + 2.

Original entry on oeis.org

3, 4, 7, 8, 67, 260, 379, 1191, 1471, 5076, 25807, 58591, 103780, 134947, 137347, 170587, 203236, 272611, 285391, 420211, 453748, 538735, 540856, 592411, 618451, 680707, 778807, 1163067, 1306936, 1520443, 1700947, 1891336, 2099203, 2831011, 3481960, 4020031

Offset: 1

Juri-Stepan Gerasimov, Dec 05 2014

nonn

			3 is in this sequence because (3^3 + 2)/(3 - 2) = 29 is an integer.

Chai Wah Wu, Table of n, a(n) for n = 1..160

Cf. A081762, A242787, A213382, A252041.

[n: n in [3..10000] | Denominator((n^n+2)/(n-2)) eq 1];

fQ[n_] := Mod[ PowerMod[ n, n, n - 2] + 2, n - 2] == 0; Select[ Range@ 4100000, fQ] (* Robert G. Wilson v, Dec 19 2014 *)

A249751_list = [n for n in range(3,10**7) if n==3 or pow(n,n,n-2) == n-4]
# Chai Wah Wu, Dec 06 2014

More terms from Chai Wah Wu, Dec 06 2014

A251862 Numbers m such that m + 3 divides m^m - 3.

Original entry on oeis.org

3, 7, 10, 27, 727, 1587, 9838, 758206, 789223, 1018846, 1588126, 1595287, 2387206, 4263586, 9494746, 12697378, 17379860, 21480726, 25439767, 38541526, 44219926, 55561536, 62072326, 64335356, 70032586, 83142466, 85409276

Offset: 1

Juri-Stepan Gerasimov, Dec 10 2014

nonn

m such that m+3 divides (-3)^m - 3. - Robert Israel, Dec 14 2014

			3 is in this sequence because 3 + 3 = 6 divides 3^3 - 3 = 24.

Chai Wah Wu, Table of n, a(n) for n = 1..96

Cf. ...............Numbers n such that x divides y, where:
...x.....y......k=0.......k=1.......k=2........k=3........
..n-k..n^n-k..A000027...A087156...A242787....A242788......
..n-k..n^n+k..A000027..see below..A249751....A252041......
..n+k..n^n-k..A000027...A004275...A251603..this sequence..
..n+k..n^n+k..A000027...A004273...A213382....A242800......
(For x=n-1 and y=n^n+1, the only terms are 0, 2 and 3. - David L. Harden, Jan 14 2015)

[n: n in [2..10000] | Denominator((n^n-3)/(n+3)) eq 1];

select(t ->((-3) &^ (t) - 3) mod (t+3) = 0, [$1..10^6]); # Robert Israel, Dec 14 2014

a251862[n_] := Select[Range[n], Mod[PowerMod[#, #, # + 3] - 3, # + 3] == 0 &]; a251862[10^6] (* Michael De Vlieger, Dec 14 2014, after Robert G. Wilson v at A252041 *)

isok(n) = Mod(n, n+3)^n == 3; \\ Michel Marcus, Dec 10 2014

A251862_list = [n for n in range(10**6) if pow(-3, n, n+3) == 3] # Chai Wah Wu, Jan 19 2015

[n for n in range(10^4) if (n + 3).divides((-3)^n - 3)] # Peter Luschny, Jan 17 2015

More terms from Michel Marcus, Dec 10 2014

cp's OEIS Frontend

A251603 Numbers k such that k + 2 divides k^k - 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Python

Formula

Extensions

A249751 Numbers m such that m - 2 divides m^m + 2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

Python

Extensions

A251862 Numbers m such that m + 3 divides m^m - 3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Python

Sage

Extensions