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-2 of 2 results.

A173056 Numbers of the form a^b+b^a, a and b are primes.

Original entry on oeis.org

8, 17, 54, 57, 177, 368, 2169, 2530, 6250, 8361, 94932, 131361, 178478, 524649, 1596520, 1647086, 8389137, 48989176, 129145076, 536871753, 1162268326, 1221074418, 1996813914, 2147484609, 94143190994, 96951758924, 137438954841
Offset: 1

Views

Author

Keywords

Comments

2^2+2^2=8, 2^3+3^2=17, 3^3+3^3=54, 2^5+5^2=57, 2^7+7^2=177, 3^5+5^3=368,..

Crossrefs

Programs

  • Mathematica
    nMax=10^12; lim=PrimePi[Log[2, nMax]]; f[a_,b_]:=Prime[a]^Prime[b] + Prime[b]^Prime[a]; Select[Union[Flatten[Table[f[a,b], {a,lim}, {b,lim}]]], #<=nMax&]
    nMax=10^12; lim=PrimePi[Log[2, nMax]]; Select[Union[First[#]^Last[#] + Last[#]^First[#]&/@ Tuples[Prime[Range[lim]],{2}]], #<=nMax&]  (* Harvey P. Dale, Mar 12 2011 *)

A173058 Leyland numbers (Cubes), a^b+b^a, a and b > 1.

Original entry on oeis.org

8, 512, 1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672
Offset: 1

Views

Author

Keywords

Examples

			2^3=8, 8^3=512,
101851798816724304313422284420468908052573419683296812531807022467719064988166\
8353091698688^3=1056...6672
		

Crossrefs

Programs

  • Mathematica
    f[a_,b_]:=a^b+b^a; Select[Union[Flatten[Table[f[a,b],{a,2,150},{b,2,150}]]],IntegerQ[(#1)^(1/3)]&]
Showing 1-2 of 2 results.