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.

A176558 a(n) is the reverse concatenation of divisors of n.

Original entry on oeis.org

1, 21, 31, 421, 51, 6321, 71, 8421, 931, 10521, 111, 1264321, 131, 14721, 15531, 168421, 171, 1896321, 191, 20105421, 21731, 221121, 231, 2412864321, 2551, 261321, 27931, 28147421, 291, 30151065321, 311, 32168421, 331131, 341721, 35751, 361812964321, 371
Offset: 1

Views

Author

Jaroslav Krizek, Apr 20 2010

Keywords

Comments

Union of A089374(n) for n >= 1 and A175354(n) for n >= 2. - Jonathan Vos Post, Apr 17 2011

Examples

			For n=12; divisors of 12: 1,2,3,4,6,12; a(12)=1264321 (reverse concatenation).
		

Crossrefs

Programs

  • Maple
    a:= n-> parse(cat(sort([numtheory[divisors](n)[]], `>`)[])):
    seq(a(n), n=0..40);  # Alois P. Heinz, Dec 31 2020
  • Mathematica
    Table[FromDigits@ Flatten@ Map[IntegerDigits, Reverse@ Divisors@ n], {n, 34}] (* Michael De Vlieger, Jan 23 2017 *)
  • PARI
    a(n) = {s = ""; fordiv(n, d, s = concat(Str(d), s)); eval(s);} \\ Michel Marcus, Feb 16 2015
    
  • Python
    from sympy import divisors
    def a(n): return int("".join(str(d) for d in divisors(n)[::-1]))
    print([a(n) for n in range(1, 35)]) # Michael S. Branicky, Dec 31 2020

Extensions

More terms from Charles R Greathouse IV, Apr 23 2010
Corrected by Jaroslav Krizek, Apr 26 2010
Edited by Charles R Greathouse IV, Apr 30 2010

A089374 Numbers n such that the concatenation (in descending order) of all the divisors of n, with 1 in the least significant position, is prime (or 1).

Original entry on oeis.org

1, 3, 4, 7, 13, 19, 25, 31, 39, 43, 48, 91, 97, 103, 109, 117, 151, 157, 181, 193, 211, 241, 244, 247, 271, 289, 292, 301, 309, 325, 337, 349, 367, 388, 409, 421, 439, 487, 523, 547, 571, 597, 601, 613, 628, 631, 633, 687, 691, 703, 711, 733, 769, 772, 793, 811
Offset: 1

Views

Author

Amarnath Murthy, Nov 08 2003

Keywords

Comments

See A176558(n) = reverse concatenation of divisors of n. See A175355 for corresponding values of reverse concatenations. Complement of A175354(n) for n >= 2. - Jaroslav Krizek, Apr 20 2010
If prime p divides n, then the exponent of p in the prime factorization of n is odd if p == 1 (mod 3) and even if p == 2 (mod 3). In particular, the sequence has no terms == 2 (mod 3). - Robert Israel, Apr 21 2020

Examples

			4 is a term as 421 is prime; 39 is a term as concatenation of 39,13,3 and 1, i.e. 391331, is prime.
25 is a member as 2551 is prime.
Divisors of 39 are 1,3,13,39; reverse concatenation of divisors 391331 is prime.
48 is a member as 48241612864321 is a prime.
		

Crossrefs

Cf. A069582, A323427 (primes p such that p^2 is in the sequence).

Programs

  • Maple
    select(n->isprime(parse(cat("",op(sort([op(numtheory[divisors](n))],`>`))))),[$1..3000])[]; (Alec Mihailovs, Aug 14 2005)
  • Mathematica
    Join[{1},Select[Range[1000],PrimeQ[FromDigits[Flatten[IntegerDigits/@Reverse[Divisors[ #]]]]]&]] (* Harvey P. Dale, Feb 11 2024 *)

Extensions

Corrected and extended by David Wasserman, Sep 15 2005
Edited by N. J. A. Sloane, Apr 29 2007, Aug 14 2010
Showing 1-2 of 2 results.