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

A116324 Numbers k such that k * (k+5) gives the concatenation of two numbers m and m+5.

Original entry on oeis.org

31, 65, 42754, 57242, 75424, 425073, 574923, 979529, 4301394, 5698602, 7028667, 4925000748, 5074999248, 7748266575, 8511881485, 8814851185, 7059602159673, 7106167933829, 7439286611622, 7485852385778, 46791112884926
Offset: 1

Views

Author

Giovanni Resta, Feb 06 2006

Keywords

Crossrefs

Programs

  • Maple
    f:= proc(d) local S,R,r,s,m,n;
      r:= 10^d+1;
      S:= map(t -> rhs(op(t)), [msolve(n*(n+5)=5,r)]);
      S:= select(proc(s) local t; t:= (s*(s+5)-5)/r; t+5 >= (r-1)/10 and t+5 < r-1 end proc, S);
      op(sort(S));
    end proc:
    map(f, [$1..20]); # Robert Israel, Jun 21 2024

A032620 Numbers k such that k concatenated with k+5 is a prime.

Original entry on oeis.org

12, 16, 18, 28, 46, 64, 76, 78, 82, 88, 102, 126, 132, 138, 148, 154, 178, 184, 186, 196, 208, 214, 226, 228, 234, 246, 264, 282, 288, 298, 316, 318, 322, 324, 328, 342, 348, 352, 372, 408, 418, 424, 432, 438, 442, 444, 456, 462, 468, 472, 474, 478, 484
Offset: 1

Views

Author

Patrick De Geest, May 15 1998

Keywords

Crossrefs

Cf. A032610.

Programs

  • Maple
    filter:= n -> isprime(n * 10^(1+ilog10(n+5)) + n + 5):
    select(filter, [seq(i,i=2..1000,2)]); # Robert Israel, May 13 2025
  • Mathematica
    nc5pQ[n_]:=PrimeQ[FromDigits[Join[IntegerDigits[n],IntegerDigits[n+5]]]]; Select[Range[500],nc5pQ] (* Harvey P. Dale, Mar 25 2016 *)

A032628 Primes that are concatenations of n with n + 5.

Original entry on oeis.org

1217, 1621, 1823, 2833, 4651, 6469, 7681, 7883, 8287, 8893, 102107, 126131, 132137, 138143, 148153, 154159, 178183, 184189, 186191, 196201, 208213, 214219, 226231, 228233, 234239, 246251, 264269, 282287, 288293, 298303
Offset: 1

Views

Author

Patrick De Geest, May 15 1998

Keywords

Crossrefs

Programs

  • Mathematica
    concatQ[n_]:=Module[{idn=IntegerDigits[n],len},len=Length[idn];EvenQ[ len]&&FromDigits[Take[idn,-len/2]]-FromDigits[Take[idn,len/2]]==5]; Select[Prime[Range[30000]],concatQ] (* Harvey P. Dale, Jul 30 2015 *)

Extensions

Edited by Charles R Greathouse IV, Apr 28 2010
Showing 1-3 of 3 results.