OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
Let pe(m)=m*(3m-1)/2. The pe(1)=1, pe(2)=5, pe(3)=12. As pe(3) is the first divisible by 6, a(6)=3.
MATHEMATICA
smn[n_]:=Module[{m=1, c}, c=(m(3m-1))/2; While[!Divisible[c, n], m++; c=(m(3m-1))/2]; m]; Array[smn, 80] (* Harvey P. Dale, Feb 03 2015 *)
PROG
(PARI) pe(n)=n*(3*n-1)/2 for (n=1, 50, c=1; while (pe(c)%n!=0, c++); print1(c", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Jul 22 2003
EXTENSIONS
More terms from David Wasserman, Feb 10 2005
STATUS
approved