A073646 -id:A073646 - cp's OEIS frontend

A037276 Start with 1; for n>1, replace n with the concatenation of its prime factors in increasing order.

1, 2, 3, 22, 5, 23, 7, 222, 33, 25, 11, 223, 13, 27, 35, 2222, 17, 233, 19, 225, 37, 211, 23, 2223, 55, 213, 333, 227, 29, 235, 31, 22222, 311, 217, 57, 2233, 37, 219, 313, 2225, 41, 237, 43, 2211, 335, 223, 47, 22223, 77, 255, 317, 2213, 53, 2333

Offset: 1

N. J. A. Sloane

			If n = 2^3*5^5*11^2 = 3025000, a(n) = 222555551111 (n=2*2*2*5*5*5*5*5*11*11, then remove the multiplication signs).

N. J. A. Sloane, Table of n, a(n) for n = 1..20000 [First 10000 terms from T. D. Noe]
Patrick De Geest, Home Primes
N. J. A. Sloane, Confessions of a Sequence Addict (AofA2017), slides of invited talk given at AofA 2017, Jun 19 2017, Princeton. Mentions this sequence.
N. J. A. Sloane, Three (No, 8) Lovely Problems from the OEIS, Experimental Mathematics Seminar, Rutgers University, Oct 05 2017, Part I, Part 2, Slides. (Mentions this sequence)
Eric Weisstein's World of Mathematics, Home Prime

Cf. A037274, A048985, A067599, A080670, A084796. Different from A073646.

Cf. also A027746, A289660 (a(n)-n).

a037276 = read . concatMap show . a027746_row
-- Reinhard Zumkeller, Apr 03 2012

# This is for n>1
read("transforms") ;
A037276 := proc(n)
    local L,p ;
    L := [] ;
    for p in ifactors(n)[2] do
        L := [op(L),seq(op(1,p),i=1..op(2,p))] ;
    end do:
    digcatL(L) ;
end proc: # R. J. Mathar, Oct 29 2012

co[n_, k_] := Nest[Flatten[IntegerDigits[{#, n}]] &, n, k - 1]; Table[FromDigits[Flatten[IntegerDigits[co @@@ FactorInteger[n]]]], {n, 54}] (* Jayanta Basu, Jul 04 2013 *)
FromDigits@ Flatten@ IntegerDigits[Table[#1, {#2}] & @@@ FactorInteger@ #] & /@ Range@ 54 (* Michael De Vlieger, Jul 14 2015 *)

a(n)={ n<4 & return(n); for(i=1,#n=factor(n)~, n[1,i]=concat(vector(n[2,i],j,Str(n[1,i])))); eval(concat(n[1,]))}  \\ M. F. Hasler, Jun 19 2011

from sympy import factorint
def a(n):
    f=factorint(n)
    l=sorted(f)
    return 1 if n==1 else int("".join(str(i)*f[i] for i in l))
print([a(n) for n in range(1, 101)]) # Indranil Ghosh, Jun 23 2017

A084797 Greatest number formed by concatenating prime factors of n in base 10.

Original entry on oeis.org

1, 2, 3, 22, 5, 32, 7, 222, 33, 52, 11, 322, 13, 72, 53, 2222, 17, 332, 19, 522, 73, 211, 23, 3222, 55, 213, 333, 722, 29, 532, 31, 22222, 311, 217, 75, 3322, 37, 219, 313, 5222, 41, 732, 43, 2211, 533, 232, 47, 32222, 77, 552, 317, 2213, 53, 3332, 511, 7222

Offset: 1

N. J. A. Sloane, Jul 19 2003

Alois P. Heinz, Table of n, a(n) for n = 1..20000

Different from A084796. Cf. A073646.

with(combinat):
a:= n-> `if`(n=1, 1, max(map(x-> parse(cat(x[])),
    permute([seq(i[1]$i[2], i=ifactors(n)[2])]))[])):
seq(a(n), n=1..100);  # Alois P. Heinz, May 02 2016

More terms from Alois P. Heinz, May 02 2016

A278572 Irregular triangle read by rows: row n lists values of k in range 1 <= k <= n/2 such x^n + x^k + 1 is irreducible (mod 2), or -1 if no such k exists.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 3, -1, 1, 4, 3, 2, 3, 5, -1, 5, 1, 4, 7, -1, 3, 5, 6, 3, 7, 9, -1, 3, 5, 2, 7, 1, 5, 9, -1, 3, 7, -1, -1, 1, 3, 9, 13, 2, 1, 9, 3, 6, 7, 13, -1, 10, 13, 7, 2, 9, 11, 15, -1, -1, 4, 8, 14, -1, 3, 20, 7, -1, 5, -1, 1, 5, 14, 20, 21, -1

Offset: 2

N. J. A. Sloane, Nov 27 2016

This is the format used by John Brillhart (1968) and Zierler and Brillhart (1968).

			Triangle begins:
1,
1,
1,
2,
1, 3,
1, 3,
-1,
1, 4,
3,
2,
3, 5,
-1,
5,
1, 4, 7,
-1,
3, 5, 6,
...

Alanen, J. D., and Donald E. Knuth. "Tables of finite fields." Sankhyā: The Indian Journal of Statistics, Series A (1964): 305-328.
John Brillhart, On primitive trinomials (mod 2), unpublished Bell Labs Memorandum, 1968.
Marsh, Richard W. Table of irreducible polynomials over GF (2) through degree 19. Office of Technical Services, US Department of Commerce, 1957.

Robert Israel, Table of n, a(n) for n = 2..4328 (rows 2 to 2170, flattened)
Joerg Arndt, Complete list of primitive trinomials over GF(2) up to degree 400. (Lists primitive trinomials only.)
Joerg Arndt, Complete list of primitive trinomials over GF(2) up to degree 400 [Cached copy, with permission]
R. P. Brent, Trinomial Log Files and Certificates
A. J. Menezes, P. C. van Oorschot and S. A. Vanstone, Handbook of Applied Cryptography, CRC Press, 1996; see Table 4.6.
Svein Mossige, Table of irreducible polynomials over GF[2] of degrees 10 through 20, Mathematics of Computation 26.120 (1972): 1007-1009.
N. Zierler and J. Brillhart, On primitive trinomials (mod 2), Information and Control 13 1968 541-554.
N. Zierler and J. Brillhart, On primitive trinomials (mod 2), II, Information and Control 14 1969 566-569.
Index entries for sequences related to trinomials over GF(2)

Cf. A001153, A057646, A057774, A073571, A073646, A073726, A074743, A278573.

Rows n that contain particular numbers: 1 (A002475), 2 (A057460), 3 (A057461), 4 (A057463), 5 (A057474), 6 (A057476), 7 (A057477), 8 (A057478), 9 (A057479), 10 (A057480), 11 (A057481), 12 (A057482), 13 (A057483).

T:= proc(n) local L; L:= select(k -> Irreduc(x^n+x^k+1) mod 2, [$1..n/2]); if L = [] then -1 else op(L) fi
end proc:
map(T, [$2..100]); # Robert Israel, Mar 28 2017

DeleteCases[#, 0] & /@ Table[Boole[IrreduciblePolynomialQ[x^n + x^# + 1, Modulus -> 2]] # & /@ Range[Floor[n/2]], {n, 2, 40}] /. {} -> {-1} // Flatten (* Michael De Vlieger, Mar 28 2017 *)

A278573 Irregular triangle read by rows: row n lists values of k in range 1 <= k <= n-1 such x^n + x^k + 1 is irreducible (mod 2), or -1 if no such k exists.

Original entry on oeis.org

1, 1, 2, 1, 3, 2, 3, 1, 3, 5, 1, 3, 4, 6, -1, 1, 4, 5, 8, 3, 7, 2, 9, 3, 5, 7, 9, -1, 5, 9, 1, 4, 7, 8, 11, 14, -1, 3, 5, 6, 11, 12, 14, 3, 7, 9, 11, 15, -1, 3, 5, 15, 17, 2, 7, 14, 19, 1, 21, 5, 9, 14, 18, -1, 3, 7, 18, 22, -1, -1, 1, 3, 9, 13, 15, 19, 25, 27, 2, 27, 1, 9, 21, 29, 3, 6, 7, 13

Offset: 2

N. J. A. Sloane, Nov 27 2016

Row n (if it is not -1) is invariant under the map k -> n-k. - Robert Israel, Mar 14 2018

			Triangle begins:
1,
1, 2,
1, 3,
2, 3,
1, 3, 5,
1, 3, 4, 6,
-1,
1, 4, 5, 8,
3, 7,
2, 9,
3, 5, 7, 9,
-1,
5, 9,
1, 4, 7, 8, 11, 14,
-1,
3, 5, 6, 11, 12, 14,
3, 7, 9, 11, 15,
-1,
3, 5, 15, 17,
2, 7, 14, 19,
1, 21,
...

Alanen, J. D., and Donald E. Knuth. "Tables of finite fields." Sankhyā: The Indian Journal of Statistics, Series A (1964): 305-328.
John Brillhart, On primitive trinomials (mod 2), unpublished Bell Labs Memorandum, 1968.
Marsh, Richard W. Table of irreducible polynomials over GF (2) through degree 19. Office of Technical Services, US Department of Commerce, 1957.

Robert Israel, Table of n, a(n) for n = 2..4558 (rows 2 to 1300, flattened)
Joerg Arndt, Complete list of primitive trinomials over GF(2) up to degree 400. (Lists primitive trinomials only.)
Joerg Arndt, Complete list of primitive trinomials over GF(2) up to degree 400 [Cached copy, with permission]
R. P. Brent, Trinomial Log Files and Certificates
A. J. Menezes, P. C. van Oorschot and S. A. Vanstone, Handbook of Applied Cryptography, CRC Press, 1996; see Table 4.6.
Svein Mossige, Table of irreducible polynomials over GF[2] of degrees 10 through 20, Mathematics of Computation 26.120 (1972): 1007-1009.
N. Zierler and J. Brillhart, On primitive trinomials (mod 2), Information and Control 13 1968 541-554.
N. Zierler and J. Brillhart, On primitive trinomials (mod 2), II, Information and Control 14 1969 566-569.
Index entries for sequences related to trinomials over GF(2)

Cf. A001153, A057646, A057774, A073571, A073646, A073726, A074743, A278572.

for n from 2 to 30 do
  S:= select(k -> Irreduc(x^n+x^k+1) mod 2, [$1..n-1]);
  if S = [] then print(-1) else print(op(S)) fi
od: # Robert Israel, Mar 14 2018

cp's OEIS Frontend

A037276 Start with 1; for n>1, replace n with the concatenation of its prime factors in increasing order.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Python

A084797 Greatest number formed by concatenating prime factors of n in base 10.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Extensions

A278572 Irregular triangle read by rows: row n lists values of k in range 1 <= k <= n/2 such x^n + x^k + 1 is irreducible (mod 2), or -1 if no such k exists.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

A278573 Irregular triangle read by rows: row n lists values of k in range 1 <= k <= n-1 such x^n + x^k + 1 is irreducible (mod 2), or -1 if no such k exists.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple