

A076830


Least square s such that A078142(s) is equal to the nth prime.


1



4, 36, 121, 484, 2809, 11236, 6889, 27556, 29929, 51529, 85849, 744769, 196249, 734449, 727609, 942841, 1203409, 4813636, 1510441, 1885129, 7540516, 8048569, 4932841, 4108729, 7946761, 12243001, 18088009, 10608049, 12187081, 10569001
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

a(1) = 4 since 4 = 2^2 is the least square s such that A078142(s) = 2, the first prime.
a(2) = 36 since 36 = 6^2 is the least square s such that A078142(s) = 3, the second prime.


MATHEMATICA

s[n_] := Total[Ceiling[Sqrt[(p = FactorInteger[n][[;; , 1]])]]^2  p]; m = 30; seq = Table[0, {m}]; c = 0; k = 1; While[c < m, n = s[k^2]; If[PrimeQ[n] && (i = PrimePi[n]) <= m && seq[[i]] == 0, c++; seq[[i]] = k^2]; k++]; seq (* Amiram Eldar, Dec 11 2019 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



