OFFSET
2,1
LINKS
Sean A. Irvine, Table of n, a(n) for n = 2..1000
EXAMPLE
For n=3, a(3)=2 because 3 -> 4 -> 11
PROG
(UBASIC)
10 cls
30 for I=2 to 100
32 H=I
40 if odd(H)=1 then goto 90 else goto 50
50 A=2*H+int(sqrt(H))+1:K=K+1
60 if prmdiv(A)=A then print I, K:goto 120
65 if K>1000 then print I, 0:goto 120
70 H=A:goto 40
90 A=2*H-int(sqrt(H))-1:K=K+1
100 if prmdiv(A)=A then print I, K:goto 120
105 if K>1000 then print I, 0:goto 120
110 H=A:goto 40
120 K=0
130 next
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Felice Russo, Sep 02 2002
STATUS
approved