A165838 Totally multiplicative sequence with a(p) = 17.
1, 17, 17, 289, 17, 289, 17, 4913, 289, 289, 17, 4913, 17, 289, 289, 83521, 17, 4913, 17, 4913, 289, 289, 17, 83521, 289, 289, 4913, 4913, 17, 4913, 17, 1419857, 289, 289, 289, 83521, 17, 289, 289, 83521, 17, 4913, 17, 4913, 4913, 289, 17, 1419857, 289, 4913
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
with(numtheory); A165838:=n->17^bigomega(n); seq(A165838(n), n=1..50); # Wesley Ivan Hurt, Feb 15 2014
-
Mathematica
Table[17^PrimeOmega[n], {n, 50}] (* Wesley Ivan Hurt, Feb 15 2014 *)