OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
From Robert Israel, Jun 26 2020: (Start)
a(3k) = A030078(k+1).
a(3k+1) = A251720(k+1).
a(3k+2) = a(3k+1)^2/a(3k). (End)
MAPLE
R:= NULL: p:= 2:
for n from 1 to 30 do
q:= nextprime(p);
R:= R, p^3, p^2*q, p*q^2;
p:= q;
od:
R; # Robert Israel, Jun 26 2020
MATHEMATICA
nn=50; With[{prs=Prime[Range[nn]]}, Take[Union[Flatten[{prs^3, {#[[1]]^2 #[[2]], #[[2]]^2 #[[1]]}&/@Partition[prs, 2, 1]}]], nn]] (* Harvey P. Dale, Dec 28 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by Harvey P. Dale, Dec 28 2013
STATUS
approved