cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-5 of 5 results.

A117406 Integer k such that 2^n + k = A117405(n).

Original entry on oeis.org

3, 2, 0, 1, -1, 1, 1, 1, -2, -1, 3, -1, 1, 1, -2, -3, -5, 1, -2, 1, 1, -3, 7, -1, 3, -3, 3, 3, 1, 6, -3, 1, 1, -3, -3, -3, -3, -1, 18, 3, 1, -1, 3, 1, -3, 3, 7, -9, 3, -1, 7, -5, 3, 11, -3, -5, 6, -9, -3, -1, -3, 1, -2, 9, 1, 5, 3, -1, -5, -13, 9, -3, -7, -3
Offset: 0

Views

Author

Jonathan Vos Post, Mar 13 2006

Keywords

Comments

After n=2, never again is a(n) = 0. Semiprime analog of A117388 Integer k such that 2^n + k = A117387(n). A117387(n) is prime nearest to 2^n. (In case of a tie, choose the smaller).

Examples

			a(0) = 3 because 2^0 + 3 = 4 = A001358(1) and no semiprime is closer to 2^0.
a(1) = 2 because 2^1 + 2 = 4 = A001358(1) and no semiprime is closer to 2^1.
a(2) = 0 because 2^2 + 0 = 4 = A001358(1) and no semiprime is closer to 2^2.
a(3) = 1 because 2^3 + 1 = 9 = 3^2 = A001358(3), no semiprime is closer to 2^3.
a(4) = -1 because 2^4 - 1 = 15 = 3 * 5 and no semiprime is closer.
a(5) = 1 because 2^5 + 1 = 33 = 3 * 11 and no semiprime is closer to 2^5.
a(6) = 1 because 2^6 + 1 = 65 = 5 * 13 and no semiprime is closer to 2^6.
a(7) = 1 because 2^7 + 1 = 129 = 3 * 43 and no semiprime is closer to 2^7.
a(8) = -2 because 2^8 - 2 = 254 = 2 * 127 and no semiprime is closer to 2^8.

Crossrefs

Cf. A000079, A001358, A117387, A117405.

Programs

  • Mathematica
    a[n_] := Catch@Block[{p = 2^n, k = 0}, While[True, If[p > k && PrimeOmega[p - k] == 2, Throw[-k]]; If[PrimeOmega[p + k] == 2, Throw[k]]; k++]]; a /@ Range[0, 80] a /@ Range[0, 80] (* Giovanni Resta, Jun 15 2016 *)

Formula

a(n) = A117405(n) - 2^n. a(n) = Min{k such that A001358(i) + k = 2^j}.

Extensions

Corrected and extended by Giovanni Resta, Jun 15 2016

A117416 Semiprime nearest to 3^n. In case of a tie, choose the smaller.

Original entry on oeis.org

4, 4, 9, 26, 82, 247, 731, 2186, 6559, 19679, 59047, 177149, 531439, 1594322, 4782979, 14348905, 43046722, 129140159, 387420493, 1162261465, 3486784399, 10460353201, 31381059597, 94143178823, 282429536489, 847288609441
Offset: 0

Views

Author

Jonathan Vos Post, Mar 13 2006

Keywords

Comments

See also: A117405 Semiprime nearest to 2^n. A117387 Prime nearest to 2^n.

Examples

			a(0) = 4 because 3^0 + 3 = 4 = A001358(1) and no semiprime is closer to 3^0.
a(1) = 4 because 3^1 + 1 = 4 = A001358(1) and no semiprime is closer to 3^1.
a(2) = 9 because 3^2 + 0 = 9 = 3^2 = A001358(3), no semiprime is closer to 3^2.
a(3) = 26 because 3^3 - 1 = 26 = 2 * 13, no semiprime is closer.
a(4) = 82 because 3^4 + 1 = 82 = 2 * 41, no semiprime is closer.
a(5) = 247 because 3^5 + 4 = 247 = 13 * 19, no semiprime is closer.

Crossrefs

Cf. A000079, A001358, A117387, A117405, A117406, A117416.

Programs

  • Mathematica
    nsp[n_]:=Module[{c=3^n,a,b,j=1,k=1},While[PrimeOmega[c-j]!=2,j++]; a=c-j;While[ PrimeOmega[ c+k]!=2,k++];b=c+k;If[(b-c)<(c-a),b,a]]; Join[ {4,4,9}, Array[nsp,30,3]] (* Harvey P. Dale, Apr 11 2015 *)

Formula

a(n) = 3^n + A117416(n). a(n) = 3^n + Min{k such that A001358(i) + k = 3^n}.

A117429 Semiprime nearest to 5^n. In case of a tie, choose the smaller.

Original entry on oeis.org

4, 4, 25, 123, 626, 3127, 15623, 78123, 390623, 1953122, 9765627, 48828127, 244140623, 1220703121, 6103515629, 30517578127, 152587890617, 762939453119, 3814697265623, 19073486328122, 95367431640623
Offset: 0

Views

Author

Jonathan Vos Post, Mar 14 2006

Keywords

Examples

			a(0) = 4 because 5^0 + 3 = 4 = A001358(1) and no semiprime is closer to 5^0.
a(1) = 4 because 5^1 - 1 = 4 = A001358(1) and no semiprime is closer to 5^1.
a(2) = 25 because 5^2 + 0 = 25 = A001358(9), no semiprime is closer to 5^2.
a(3) = 123 because 5^3 - 2 = 123 = 3 * 41 = A001358(42), no semiprime is closer.
a(4) = 626 because 5^4 + 1 = 626 = 2 * 313, no semiprime is closer.
a(5) = 3127 because 5^5 + 2 = 3127 = 53 * 59, no semiprime is closer.
a(6) = 15623 because 5^6 - 2 = 15623 = 17 * 919, no semiprime is closer.
a(7) = 78123 because 5^7 - 2 = 78123 = 3 * 26041, no semiprime is closer.
a(8) = 390623 because 5^8 - 2 = 390623 = 73 * 5351, no semiprime is closer.
a(9) = 1953122 because 5^9 - 3 = 1953122 = 2 * 976561, no semiprime is closer.
a(10) = 9765627 because 5^10 + 2 = 9765627 = 3 * 3255209, no semiprime closer.

Links

Crossrefs

Cf. A117416 = Semiprime nearest to 3^n, A117405 = Semiprime nearest to 2^n, A117387 = Prime nearest to 2^n.
Cf. A000079, A001358, A117387, A117405, A117406, A117416, A117430.

Programs

  • Maple
    nsp:= proc(n) uses numtheory; local k;
  if bigomega(n)=2 then return n fi;
  for k from 1 do
    if n-k > 0 and bigomega(n-k)=2 then return n-k fi;
    if bigomega(n+k)=2 then return n+k fi
  od
end proc:
seq(nsp(5^k),k=0..30); # Robert Israel, May 03 2018
  • Mathematica
    sp1[n_]:=Module[{k=0},While[PrimeOmega[n-k]!=2,k++];n-k]; sp2[n_]:= Module[ {k=1}, While[ PrimeOmega[n+k]!=2,k++];n+k]; Join[{4},Nearest[ {sp1[#], sp2[#]}, #][[1]]&/@(5^Range[20])] (* Harvey P. Dale, Aug 11 2019 *)

Formula

a(n) = 5^n + A117430(n).

Extensions

Edited by Robert Israel, May 03 2018

A117430 Integer k such that 5^n + k = A117429(n).

Original entry on oeis.org

3, -1, 0, -2, 1, 2, -2, -2, -2, -3, 2, 2, -2, -4, 4, 2, -8, -6, -2, -3, -2, -2, 4, 2, -6, -2, 4, 2, -3, 17, 9, -4, -8, -6, 12, 14, -2, -6, -8, -2, -6, 24, -2, 14, -6, -4, -18, -6, -3, -6, 16, -10, 16, -12, 12, -2, 16, 6, 16, -12, -2, -6, 12, -12, -8, -19, -6, 6, 24, -16, 4, 2, 16, -4, -8, -4, 16
Offset: 0

Views

Author

Jonathan Vos Post, Mar 14 2006

Keywords

Comments

(+/-) distance from 5^n to the nearest semiprime.
a(0)=3 and a(1)=-1 are the only terms == 3 (mod 4), as 5^n + 3 is divisible by 4. - Robert Israel, May 03 2018

Examples

			a(0) = 3 because 5^0 + 3 = 4 = A001358(1) and no semiprime is closer to 5^0.
a(1) = -1 because 5^1 - 1 = 4 = A001358(1) and no semiprime is closer to 5^1.
a(2) = 0 because 5^2 + 0 = 25 = A001358(9), no semiprime is closer to 5^2 [this is the only 0 element].
a(3) = -2 because 5^3 - 2 = 123 = 3 * 41 = A001358(42), no semiprime is closer.
a(4) = 1 because 5^4 + 1 = 626 = 2 * 313, no semiprime is closer.
a(5) = 2 because 5^5 + 2 = 3127 = 53 * 59, no semiprime is closer.

Links

Crossrefs

Cf. A000079, A001358, A117387, A117405, A117406, A117416, A117429.

Programs

  • Maple
    nsp:= proc(n) uses numtheory; local k;
  if bigomega(n)=2 then return n fi;
  for k from 1 do
    if n-k > 0 and bigomega(n-k)=2 then return n-k fi;
    if bigomega(n+k)=2 then return n+k fi
  od
end proc:
seq(nsp(5^n)-5^n, n=0..30); # Robert Israel, May 03 2018
  • Mathematica
    nsp[n_] := Module[{k}, If[PrimeOmega[n] == 2, Return[n]]; For[k = 1, True, k++, If[n-k > 0 && PrimeOmega[n-k] == 2, Return[n-k]]; If[PrimeOmega[n+k] == 2, Return[n+k]]]];
a[n_] := a[n] = nsp[5^n] - 5^n;
Table[Print[n, " ", a[n]]; a[n], {n, 0, 76}] (* Jean-François Alcover, Jul 23 2020, after Maple *)

Formula

a(n) = Integer k such that 5^n + k = A117429(n). a(n) = A117429(n) - 5^n. a(n) = Min{k such that A001358(i) + k = 5^n}.

Extensions

More terms from Robert Israel, May 03 2018

A117417 Integer k such that 3^n + k = A117416(n).

Original entry on oeis.org

3, 1, 0, -1, 1, 4, 2, -1, -2, -4, -2, 2, -2, -1, 10, -2, 1, -4, 4, -2, -2, -2, -12, -4, 8, -2, -7, 2, -2, 8, 14, -5, 1, -4, -8, -4, 16, 6, -6, -2, 2, -8, -2, 12, -2, -5, -8, 10, -2, 4, -10, 40, 8, -10, 4, -2, -34, -2, 4, -20, -2
Offset: 0

Views

Author

Jonathan Vos Post, Mar 13 2006

Keywords

Comments

Distance from 3^n to the nearest semiprime. If there are two semiprimes at the same distance, take the negative k-value.
See also: A117405 Semiprime nearest to 2^n. A117387 Prime nearest to 2^n.

Examples

			a(0) = 3 because 3^0 + 3 = 4 = A001358(1) and no semiprime is closer to 3^0.
a(1) = 1 because 3^1 + 1 = 4 = A001358(1) and no semiprime is closer to 3^1.
a(2) = 0 because 3^2 + 0 = 9 = 3^2 = A001358(3), no semiprime is closer to 3^2 [this is the only 0 element].
a(3) = -1 because 3^3 - 1 = 26 = 2 * 13, no semiprime is closer.
a(4) = 1 because 3^4 + 1 = 82 = 2 * 41, no semiprime is closer.
a(5) = 4 because 3^5 + 4 = 247 = 13 * 19, no semiprime is closer.

Crossrefs

Cf. A000079, A001358, A117387, A117405, A117406, A117416.

Formula

a(n) = Integer k such that 3^n + k = A117416(n). a(n) = A117416(n) - 3^n. a(n) = Min{k such that A001358(i) + k = 3^n}.
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.