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.

A373765 a(n) is the first number that starts a sequence of exactly n primes x(1), ..., x(n) where x(i+1) = A004093(x(i)) is the digit reversal of 2 * x(i).

Original entry on oeis.org

2, 7, 19, 487, 1637, 389047
Offset: 1

Views

Author

Robert Israel, Jun 18 2024

Keywords

Comments

a(7) > 7 * 10^9 if it exists.

Examples

			a(1) = 2 because 2 is prime while A004093(2) = 4 is not prime.
a(2) = 7 because 7 and A004093(7) = 41 are prime but A004093(41) = 28 is not.
a(3) = 19 because 19 and A004093(19) = 83 and A004093(83) = 661 are prime but A004093(661) = 2231 is not.
		

Crossrefs

Cf. A004093.

Programs

  • Maple
    g:= proc(n) local t,L,i,j;
      t:= n;
      for i from 0 while isprime(t) do
        L:= convert(2*t,base,10);
        t:= add(L[-j]*10^(j-1),j=1..nops(L));
      od;
      i
    end proc:
    V:= Vector(6): count:= 0: p:= 1:
    while count < 6 do
      p:= nextprime(p); v:= g(p);
    if V[v] = 0 then V[v]:= p; count:= count+1 fi
    od:
    convert(V,list);

A036447 Double and reverse digits.

Original entry on oeis.org

1, 2, 4, 8, 61, 221, 244, 884, 8671, 24371, 24784, 86594, 881371, 2472671, 2435494, 8890784, 86518771, 245730371, 247064194, 883821494, 8892467671, 24353948771, 24579870784, 86514795194, 883095920371, 2470481916671, 2433383690494
Offset: 0

Views

Author

Keywords

Crossrefs

The following are parallel families: A000079 (2^n), A004094 (2^n reversed), A028909 (2^n sorted up), A028910 (2^n sorted down), A036447 (double and reverse), A057615 (double and sort up), A263451 (double and sort down); A000244 (3^n), A004167 (3^n reversed), A321540 (3^n sorted up), A321539 (3^n sorted down), A163632 (triple and reverse), A321542 (triple and sort up), A321541 (triple and sort down).

Programs

  • Haskell
    a036447 n = a036447_list !! n
    a036447_list = iterate a004093 1  -- Reinhard Zumkeller, Feb 09 2012
  • Mathematica
    NestList[ FromDigits[ Reverse[ IntegerDigits[ 2# ] ] ] &, 1, 27 ]
    NestList[IntegerReverse[2#]&,1,30] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 18 2017 *)

Formula

a(n+1) = A004093(a(n)). - Reinhard Zumkeller, Feb 09 2012
Conjecture: a(n)^(1/n) tends to sqrt(10). - Vaclav Kotesovec, Jan 03 2020

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Mar 31 2000

A084052 2*n digit-reversed mod 2.

Original entry on oeis.org

1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 5

Views

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 26 2003

Keywords

Crossrefs

Programs

Formula

a(n) = A000035(A004093(n)). - Michel Marcus, Nov 14 2022

Extensions

More terms from Ray Chandler, May 27 2003

A062018 a(n) = n^n written backwards.

Original entry on oeis.org

1, 4, 72, 652, 5213, 65664, 345328, 61277761, 984024783, 1, 116076113582, 6528440016198, 352295601578203, 61085552860021111, 573958083098398734, 61615590737044764481, 771467633688162042728, 42457573569257080464393
Offset: 1

Views

Author

Amarnath Murthy, Jun 01 2001

Keywords

Examples

			a(5) = 5213, as 5^5 = 3125.
		

Crossrefs

Programs

  • Maple
    with(numtheory):for n from 1 to 50 do a := convert(n^n,base,10):b := add(10^(nops(a)- i)*a[i],i=1..nops(a)):printf(`%d,`,b); od:
  • Mathematica
    Table[IntegerReverse[n^n],{n,20}] (* Harvey P. Dale, Jul 31 2022 *)
  • PARI
    a(n) = { fromdigits(Vecrev(digits( n^n )))} \\ Harry J. Smith, Jul 29 2009

Formula

a(n) = A004086(n^n).

Extensions

More terms from Jason Earls and Vladeta Jovovic, Jun 01 2001

A248423 Multiples of 4 with digits backwards.

Original entry on oeis.org

0, 4, 8, 21, 61, 2, 42, 82, 23, 63, 4, 44, 84, 25, 65, 6, 46, 86, 27, 67, 8, 48, 88, 29, 69, 1, 401, 801, 211, 611, 21, 421, 821, 231, 631, 41, 441, 841, 251, 651, 61, 461, 861, 271, 671, 81, 481, 881, 291, 691, 2
Offset: 0

Views

Author

Jacy Fang, Oct 06 2014

Keywords

Crossrefs

Cf. A004093 (multiples of 2 backwards), A008586 (multiples of 4).

Programs

  • PARI
    a(n) = subst(Polrev(digits(4*n)), x, 10); \\ Michel Marcus, Oct 06 2014
Showing 1-5 of 5 results.