A217983 - OEIS

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

A217983

a(A130290(n) * A000040(n)^n1) = A000040(n), n >= 1 and n1 >= 1, and a(n) = 1 elsewhere.

1, 2, 3, 2, 1, 1, 1, 2, 3, 5, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 7, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1, 1, 11, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

The a(n) are related to the prime numbers A000040 and the number of nonzero quadratic residues modulo the n-th prime A130290, see the first formula and the Maple program.

This sequence resembles the exponential of the von Mangoldt function A014963; for the latter sequence a(A000040(n)^n1) = A000040(n), n >= 1 and n1 >= 1, and a(n) = 1 elsewhere.

LINKS

Table of n, a(n) for n=1..78.

FORMULA

a(A130290(n) * A000040(n)^n1) = A000040(n), n >= 1 and n1 >= 1, and a(n)= 1 elsewhere.

a(n) = (A160479(n+1) * A128060(n+1))/(2*n+1) for n >= 2.

MAPLE

nmax := 78: A000040 := proc(n): ithprime(n) end: A130290 := proc(n): if n =1 then 1 else (A000040(n)-1)/2 fi: end: for n from 1 to nmax do A217983(n) := 1 od: for n from 1 to nmax do for n1 from 1 to floor(log[A000040(n)](nmax)) do A217983(A130290(n) * A000040(n)^n1) := A000040(n) od: od: seq(A217983(n), n=1..nmax);

CROSSREFS

Sequence in context: A283761 A171457 A129385 * A096626 A083279 A306239

Adjacent sequences: A217980 A217981 A217982 * A217984 A217985 A217986

KEYWORD

nonn

AUTHOR

Johannes W. Meijer, Oct 25 2012

STATUS

approved