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-10 of 33 results. Next

A225720 Composite squarefree numbers n such that p+10 divides n-10 for each prime p dividing n.

Original entry on oeis.org

10, 79222, 206965, 784090, 1673122, 2227123, 4798090, 5202571, 9196330, 13146715, 15015430, 18213595, 19342333, 21735010, 27907435, 28234018, 28240090, 37394146, 38710990, 53990695, 54772453, 70646509, 79671826, 89678830, 107251990, 114572545, 115005187, 137245690
Offset: 1

Views

Author

Paolo P. Lava, May 13 2013

Keywords

Examples

			Prime factors of 2227123 are 19, 251 and 467. We have that (2227123-10)/(19+10) = 76797, (2227123-10)/(251+10) = 8533 and (2227123-10)/(467+10) = 4669.

Crossrefs

Cf. A208728, A225702-A225719.

Programs

  • Maple
    with(numtheory); A225720:=proc(i,j) local c, d, n, ok, p, t;
for n from 2 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or p[d][1]=j then ok:=0; break; fi;
if  not type((n+j)/(p[d][1]-j),integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: A225720(10^9,-10);
  • PARI
    is(n,f=factor(n))=if(#f[,2]<2 || vecmax(f[,2])>1, return(0)); for(i=1,#f~, if((n-10)%(f[i,1]+10), return(0))); 1 \\ Charles R Greathouse IV, Nov 05 2017

Extensions

a(20)-a(27) from Donovan Johnson, Nov 15 2013
a(28) from Charles R Greathouse IV, Nov 05 2017

A226111 Composite squarefree numbers n such that the ratio (n - 1/2)/(p(i) + 1/2) is an integer, where p(i) are the prime factors of n.

Original entry on oeis.org

260813, 960323, 4572113, 5991098, 18912713, 37481945, 68688458, 214337813, 1418459963, 1488523838, 1905782603, 1906387718, 2416383938, 3866147051, 6153859058, 6927221438, 10696723538, 12000312419, 24529142138, 43004079563, 43648495313, 54750300413
Offset: 1

Views

Author

Paolo P. Lava, May 27 2013

Keywords

Comments

Also composite squarefree numbers n such that (2*p(i)+1) | (2*n-1).

Examples

			The prime factors of 5991098 are 2, 103, 127 and 229. We see that (5991098 - 1/2)/(2 + 1/2) = 2396439, (5991098 - 1/2)/(103 + 1/2) = 57885, (5991098 - 1/2)/(127 + 1/2) = 46989 and (5991098 - 1/2)/(229 + 1/2) = 26105. Hence 5991098 is in the sequence.
The prime factors of 1123342 are 2, 11 and 51061. We see that(1123342 - 1/2)/(2 + 1/2) = 748895, (1123342 - 1/2)/(11 + 1/2) = 106985 but (1123342 - 1/2)/(51061 + 1/2) = 2246685/102121. Hence 1123342 is not in the sequence.

Links

Crossrefs

Cf. A208728, A225702-A225720, A226020, A226112-A226114.

Programs

  • Maple
    with(numtheory); A226111:=proc(i, j) local c, d, n, ok, p;
for n from 2 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or not type((n-j)/(p[d][1]+j), integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: A226111(10^9,1/2);

Extensions

a(8)-a(22) from Giovanni Resta, Jun 02 2013

A226114 Composite squarefree numbers n such that the ratio (n + 1/3)/(p(i) - 1/3) is an integer, where p(i) are the prime factors of n.

Original entry on oeis.org

1045, 1639605, 7343133, 7938133, 25615893, 282388773, 296251293, 346148733, 895445173, 1217200533, 1584568533, 2578055893, 3604398933, 4078150853, 5181367893, 5621460973, 7591692693, 8199401613, 9393224533, 9489314501, 12671984033, 12723857813, 14057815893
Offset: 1

Views

Author

Paolo P. Lava, May 27 2013

Keywords

Comments

Also composite squarefree numbers n such that (3*p(i) - 1) | (3*n + 1).

Examples

			The prime factors of 1045 are 5, 11 and 19. We see that (1045 + 1/3)/(5 - 1/3) = 224, (1045 + 1/3)/(11 - 1/3) = 98 and (1045 + 1/3)/(19 - 1/3) = 56. Hence 1045 is in the sequence.
The prime factors of 1639605 are 3, 5, 11, 19 and 523. We see that (1639605 + 1/3)/(3 - 1/3) = 614852, (1639605 + 1/3)/(5 - 1/3) = 351344, (1639605 + 1/3)/(11 - 1/3) = 153713, (1639605 + 1/3)/(19 - 1/3) = 87836 and (1639605 + 1/3)/(523 - 1/3) = 3137. Hence 1639605 is in the sequence.
The prime factors of 1117965 are 3, 5 and 74531. We see that (1117965 + 1/3)/(3 - 1/3) = 419237, (1117965 + 1/3)/(5 - 1/3) = 239564 but (1117965 + 1/3)/(74531 - 1/3) = 419237/27949. Hence 1117965 is not in the sequence.

Links

Crossrefs

Cf. A208728, A225702-A225720, A226111-A226114.

Programs

  • Maple
    with(numtheory); A226114:=proc(i, j) local c, d, n, ok, p;
for n from 2 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or not type((n+j)/(p[d][1]-j),integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: A226114(10^9,1/3);

Extensions

a(6)-a(23) from Giovanni Resta, Jun 02 2013

A226020 Composite squarefree numbers n such that the ratio (n + 1/2)/(p(i) + 1/2) is an integer, where p(i) are the prime factors of n.

Original entry on oeis.org

13702, 42997, 1004062, 1684462, 38447662, 40243549, 70801087, 107728582, 409055062, 594021862, 760767262, 1045475437, 1104435202, 1471700587, 1686747562, 1920806662, 3136180162, 3469071937, 5291041297, 7239716347, 7903353667, 12738885862, 22711489762
Offset: 1

Views

Author

Paolo P. Lava, May 23 2013

Keywords

Comments

Also composite squarefree numbers n such that (2*p(i)+1) | (2*n+1).

Examples

			The prime factors of 13702 are 2, 13, 17 and 31. We see that (13702 + 1)/(2 + 1/2) = 5481, (13702 + 1/2)/(13 + 1/2) = 1015, (13702 + 1)/(17 + 1/2) = 783 and ( 13702 + 1/2)/(31 + 1/2) = 435. Hence 13702 is in the sequence.
The prime factors of 1123545 are 3, 5 and 74903. We see that
(1123545 + 1/2)/(3 + 1/2) = 321013, (1123545 + 1/2)/(5 + 1/2) = 204281 but (1123545 + 1/2)/(74903+ 1/2) = 321013/21401. Hence 1123545 is not in the sequence.

Links

Crossrefs

Cf. A208728, A225702-A225720, A226111-A226114.

Programs

  • Maple
    with(numtheory); A226020:=proc(i, j) local c, d, n, ok, p;
for n from 2 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or not type((n+j)/(p[d][1]+j),integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: A226020(10^9,1/2);

Extensions

a(9)-a(23) from Giovanni Resta, Jun 02 2013

A225711 Composite squarefree numbers n such that p(i)+1 divides n-1, where p(i) are the prime factors of n.

Original entry on oeis.org

385, 2737, 6061, 6721, 17641, 24769, 25201, 31521, 34561, 49105, 66385, 76609, 79401, 113221, 136081, 180481, 194833, 199801, 254881, 268801, 311905, 321937, 328321, 362881, 436645, 469201, 506521, 545905, 547561, 558145, 628705, 642505, 649153, 778261, 884305
Offset: 1

Views

Author

Paolo P. Lava, May 13 2013

Keywords

Examples

			Prime factors of 24769 are 17, 31 and 47. We have that (24769-1)/(17+1) = 1376, (24769-1)/(31+1) = 774 and (24769-1)/(47+1) = 516.

Links

Crossrefs

Cf. A208728, A225702-A225710, A225712-A225720.

Programs

  • Maple
    with(numtheory); A225711:=proc(i,j) local c, d, n, ok, p, t;
for n from 2 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or p[d][1]=j then ok:=0; break; fi;
if  not type((n+j)/(p[d][1]-j),integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: A225711(10^9,-1);
  • Mathematica
    t = {}; n = 0; len = -2; While[len <= 262, n++; {p, e} = Transpose[FactorInteger[n]]; If[Length[p] > 1 && Union[e] == {1} && Union[Mod[n - 1, p + 1]] == {0}, AppendTo[t, n]; len = len + Length[IntegerDigits[n]] + 2]]; t (* T. D. Noe, May 17 2013 *)

A226364 Composite squarefree numbers n such that the ratios (n - 1/3)/(p - 1/3) are integers for each prime p dividing n.

Original entry on oeis.org

308267, 1420467, 1445995, 46874667, 153810067, 324218667, 355724747, 393253747, 471957547, 618729307, 886489707, 901990059, 1062803467, 1525582667, 1735517355, 4306362667, 4815895467, 6528285867, 6634856107, 11460166667, 12364885867, 13330858667, 20628538667
Offset: 1

Views

Author

Paolo P. Lava, Jun 05 2013

Keywords

Comments

Also composite squarefree numbers n such that (3p - 1) | (3n - 1).

Examples

			The prime factors of 1445995 are 5, 19, 31 and 491. We see that (1445995 - 1/3)/(5 - 1/3) = 309856, (1445995 - 1/3)/(19 - 1/3) = 77464, (1445995 - 1/3)/(31 - 1/3) = 47152 and (1445995 - 1/3)/(491 - 1/3) = 2947. Hence 1445995 is in the sequence.
The prime factors of 1112307 are 3, 7 and 52967. We see that (1112307 - 1/3)/(3 - 1/3) = 417115, (1112307 - 1/3)/(7 - 1/3) = 166846 but (1112307 - 1/3)/(52967 - 1/3) = 166846/7945. Hence 1112307 is not in the sequence.

Links

Crossrefs

Cf. A208728, A225702-A225720, A226020, A226111-A226114, A226448.

Programs

  • Maple
    with(numtheory); ListA226364:=proc(i, j) local c, d, n, ok, p;
for n from 2 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or not type((n-j)/(p[d][1]-j),integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: ListA226364(10^9,1/3);
  • PARI
    is(n,P)=n=3*n-1; for(i=1,#P,if(n%(3*P[i]-1),return(0))); 1
list(lim,P=[],n=1,mx=lim\2)=my(v=[],t);if(#P>1&&is(n,P), v=[n]); P=concat(P,0); forprime(p=2,min(lim,mx),P[#P]=p;t=list(lim\p,P,n*p,p-1);if(#t,v=concat(v,t))); v \\ Charles R Greathouse IV, Jun 07 2013

Extensions

a(5)-a(23) from Giovanni Resta, Jun 07 2013

A226448 Composite squarefree numbers k such that the ratios (k - 1/2)/(p - 1/2) are integers for each prime p dividing k.

Original entry on oeis.org

260054438, 597892523, 1200695738, 3287998643, 3423456563, 10524308498, 13292859563, 15646705718, 19441707170, 33309521438, 38848586123, 43312628678, 61899936935, 72422400713, 75439031063, 85338414662, 112419230963, 132624705038, 136084511063, 141236121758
Offset: 1

Views

Author

Paolo P. Lava and Giovanni Resta, Jun 07 2013

Keywords

Comments

Also composite squarefree numbers k such that (2p - 1) | (2k - 1).

Examples

			3287998643 is a term since it is equal to 743*787*5623 and 3287998643-1/2 divided by 743-1/2, 787-1/2 and 5623-1/2 gives 3 integers, namely 4428281, 4180545 and 584793.

Links

Crossrefs

Cf. A208728, A225702-A225720, A226020, A226111-A226114, A226364.

Programs

  • Maple
    with(numtheory); ListA226448:=proc(i, j) local c, d, n, ok, p;
for n from 2 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or not type((n-j)/(p[d][1]-j), integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: ListA226448(10^9, 1/2); # Paolo P. Lava, Oct 06 2013
  • PARI
    is(n, P)=n=2*n-1; for(i=1, #P, if(n%(2*P[i]-1), return(0))); 1
list(lim, P=[], n=1, mx=lim\2)=my(v=[], t); if(#P>1&&is(n, P), v=[n]); P=concat(P, 0); forprime(p=2, min(lim, mx), P[#P]=p; t=list(lim\p, P, n*p, p-1); if(#t, v=concat(v, t))); v \\ Charles R Greathouse IV, Jun 07 2013

A225710 Composite squarefree numbers n such that p(i)-10 divides n+10, where p(i) are the prime factors of n.

Original entry on oeis.org

14, 22, 35, 55, 65, 77, 102, 110, 143, 165, 182, 221, 455, 494, 665, 935, 1001, 1173, 1430, 2717, 2795, 4505, 4526, 4862, 5957, 6479, 11526, 27521, 30485, 34661, 35126, 45917, 49715, 52910, 53846, 81686, 90574, 106865, 113477, 118745, 139073, 140822, 147095
Offset: 1

Views

Author

Paolo P. Lava, May 13 2013

Keywords

Examples

			Prime factors of 34661 are 11, 23 and 137. We have that (34661+10)/(11-10) = 34671, (34661+10)/(23-10) = 2667 and (34661+10)/(137-10) = 273.

Crossrefs

Cf. A208728, A225702-A225709, A225711-A225720.

Programs

  • Maple
    with(numtheory); A225710:=proc(i,j) local c, d, n, ok, p, t;
for n from 1 to i do if not isprime(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][2]>1 or p[d][1]=j then ok:=0; break; fi;
if  not type((n+j)/(p[d][1]-j),integer) then ok:=0; break; fi; od;
if ok=1 then print(n); fi; fi; od; end: A225710(10^9,10);
  • Mathematica
    t = {}; n = 0; len = -2; While[len <= 262, n++; {p, e} = Transpose[FactorInteger[n]]; If[Length[p] > 1 && Union[e] == {1} && Union[Mod[n + 10, p - 10]] == {0}, AppendTo[t, n]; len = len + Length[IntegerDigits[n]] + 2]]; t (* T. D. Noe, May 17 2013 *)

Extensions

Extended by T. D. Noe, May 17 2013

A274443 Least composite squarefree number k such that (p-n) | (k-1) for all primes p dividing n.

Original entry on oeis.org

561, 21, 85, 15, 21, 35, 33, 21, 65, 91, 57, 91, 133, 55, 161, 91, 57, 133, 33, 253, 65, 91, 145, 115, 217, 451, 161, 703, 253, 551, 561, 253, 481, 217, 129, 451, 301, 1081, 161, 1189, 145, 989, 217, 235, 481, 703, 649, 329, 265, 1081, 1121, 1219, 145, 1037, 721
Offset: 1

Views

Author

Paolo P. Lava, Jun 23 2016

Keywords

Examples

			Prime factors of 561 are 3, 11 and 17: (561 - 1) / (3 - 1) = 560 / 2 = 280, (561 - 1) / (11 - 1) = 560 / 10 = 56 and (561 - 1) / (17 - 1) = 560 / 16 = 35.
Prime factors of 21 are 3 and 7: (21 - 1) / (3 - 2) = 20 / 1 = 20, (21 - 1) / (7 - 2) = 20 / 5 = 4.

Links

Crossrefs

Cf. A208728, A225702-A225720, A226020, A226111-A226114, A226364, A226448, A228299-A228302, A229273-A229276, A229321-A229324, A274444, A274445, A274446.

Programs

  • Maple
    with(numtheory); P:=proc(q) local d,k,n,ok,p;
for k from 1 to q do for n from 2 to q do
if not isprime(n) and issqrfree(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][1]=k then ok:=0; break; else
if not type((n-1)/(p[d][1]-k),integer) then ok:=0; break; fi; fi; od;
if ok=1 then print(n); break; fi; fi; od; od; end: P(10^9);
  • Mathematica
    t = Select[Range@2000, SquareFreeQ@ # && CompositeQ@ # &]; Table[SelectFirst[t, Function[k, AllTrue[First /@ FactorInteger@ k, If[# == 0, False, Divisible[k - 1, #]] &[# - n] &]]], {n, 55}] (* Michael De Vlieger, Jun 24 2016, Version 10 *)

A274444 a(n) = smallest composite squarefree number k such that (p-n) | (k+1) for all primes dividing k.

Original entry on oeis.org

15, 65, 35, 15, 21, 35, 15, 35, 35, 77, 35, 55, 55, 143, 119, 51, 95, 155, 55, 323, 95, 119, 39, 391, 87, 209, 119, 299, 143, 341, 319, 629, 259, 899, 407, 185, 119, 299, 287, 1517, 203, 799, 159, 155, 407, 1189, 119, 517, 341, 1763, 1363, 629, 335, 2491, 493, 3599
Offset: 1

Views

Author

Paolo P. Lava, Jun 23 2016

Keywords

Examples

			a(1) = 15: Prime factors of 15 are 3 and 5: (15 + 1) / (3 - 1) = 16 / 2 = 8 and (15 + 1) / (5 - 1) = 16 / 4 = 4.
a(2) = 6: Prime factors of 65 are 5 and 13: (65 + 1) / (5 - 2) = 66 / 3 = 22 and (65 + 1) / (13 - 2) = 66 / 11 = 6.

Links

Crossrefs

Cf. A208728, A225702-A225720, A226020, A226111-A226114, A226364, A226448, A228299-A228302, A229273-A229276, A229321-A229324, A274443, A274445, A274446.

Programs

  • Maple
    with(numtheory); P:=proc(q) local d,k,n,ok,p;
for k from 1 to q do for n from 2 to q do
if not isprime(n) and issqrfree(n) then p:=ifactors(n)[2]; ok:=1;
for d from 1 to nops(p) do if p[d][1]=k then ok:=0; break; else
if not type((n+1)/(p[d][1]-k),integer) then ok:=0; break; fi; fi; od;
if ok=1 then print(n); break; fi; fi; od; od; end: P(10^9);
  • Mathematica
    t = Select[Range[10^4], SquareFreeQ@ # && CompositeQ@ # &]; Table[SelectFirst[t, Function[k, AllTrue[First /@ FactorInteger@ k,
If[# == 0, False, Divisible[k + 1, #]] &[# - n] &]]], {n, 56}] (* Michael De Vlieger, Jun 24 2016, Version 10 *)
Showing 1-10 of 33 results. Next

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

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