login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A333429 A(n,k) is the n-th number m that divides k^m + 1 (or 0 if m does not exist); square array A(n,k), n>=1, k>=1, read by antidiagonals. 19
1, 1, 2, 1, 3, 0, 1, 2, 9, 0, 1, 5, 10, 27, 0, 1, 2, 25, 50, 81, 0, 1, 7, 3, 125, 250, 171, 0, 1, 2, 49, 9, 205, 1250, 243, 0, 1, 3, 10, 203, 21, 625, 5050, 513, 0, 1, 2, 9, 50, 343, 26, 1025, 6250, 729, 0, 1, 11, 5, 27, 250, 1379, 27, 2525, 11810, 1539, 0 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Alois P. Heinz, Antidiagonals n = 1..20, flattened

EXAMPLE

Square array A(n,k) begins:

  1,    1,     1,    1,   1,    1,     1,   1,    1,     1, ...

  2,    3,     2,    5,   2,    7,     2,   3,    2,    11, ...

  0,    9,    10,   25,   3,   49,    10,   9,    5,   121, ...

  0,   27,    50,  125,   9,  203,    50,  27,   25,   253, ...

  0,   81,   250,  205,  21,  343,   250,  57,   82,  1331, ...

  0,  171,  1250,  625,  26, 1379,  1250,  81,  125,  2783, ...

  0,  243,  5050, 1025,  27, 1421,  2810, 171,  625,  5819, ...

  0,  513,  6250, 2525,  63, 2401,  5050, 243, 2525, 11891, ...

  0,  729, 11810, 3125,  81, 5887,  6250, 513, 3125, 14641, ...

  0, 1539, 25250, 5125, 147, 9653, 14050, 729, 3362, 30613, ...

MAPLE

A:= proc() local h, p; p:= proc() [1] end;

      proc(n, k) if k=1 then `if`(n<3, n, 0) else

        while nops(p(k))<n do for h from 1+p(k)[-1]

          while k&^h+1 mod h <> 0 do od;

          p(k):= [p(k)[], h]

        od; p(k)[n] fi

      end

    end():

seq(seq(A(n, 1+d-n), n=1..d), d=1..12);

MATHEMATICA

dmax = 12;

mmax = 2^(dmax+3);

col[k_] := col[k] = Select[Range[mmax], Divisible[k^#+1, #]&];

A[n_, k_] := If[n>2 && k==1, 0, col[k][[n]]];

Table[A[n, d-n+1], {d, 1, dmax}, {n, 1, d}] // Flatten (* Jean-Fran├žois Alcover, Jan 05 2021 *)

CROSSREFS

Columns k=1-16 give: A130779 (for n>=1), A006521, A015949, A015950, A015951, A015953, A015954, A015955, A015957, A015958, A015960, A015961, A015963, A015965, A015968, A015969.

Rows n=1-2 give: A000012, A092067.

Main diagonal gives A333430.

Cf. A333432.

Sequence in context: A253556 A252735 A120251 * A071490 A194893 A141673

Adjacent sequences:  A333426 A333427 A333428 * A333430 A333431 A333432

KEYWORD

nonn,tabl

AUTHOR

Alois P. Heinz, Mar 20 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 18 07:55 EST 2022. Contains 350454 sequences. (Running on oeis4.)