[go: up one dir, main page]

login
A249370
Numbers p*m^2, where p is an odd prime and m >= 1, arranged in increasing order.
4
3, 5, 7, 11, 12, 13, 17, 19, 20, 23, 27, 28, 29, 31, 37, 41, 43, 44, 45, 47, 48, 52, 53, 59, 61, 63, 67, 68, 71, 73, 75, 76, 79, 80, 83, 89, 92, 97, 99, 101, 103, 107, 108, 109, 112, 113, 116, 117, 124, 125, 127, 131, 137, 139, 147, 148, 149, 151, 153, 157
OFFSET
1,1
MAPLE
N:= 1000: # to get all terms <= N
{seq(seq(p*m^2, m = 1 .. floor(sqrt(N/p))), p = select(isprime, [2*i+1 $ i = 1..floor((N-1)/2)]))};
# if using Maple 11 or previous, uncomment the next line
# sort(convert(%, list));
# Robert Israel, Oct 30 2014
MATHEMATICA
Take[Sort[Flatten[Table[Prime[n]*m^2, {n, 2, 1000}, {m, 1, 100}]]], 100]
CROSSREFS
Sequence in context: A372028 A152212 A347465 * A282810 A102941 A114235
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 26 2014
STATUS
approved